Imports System.Drawing
Imports System.Windows.Forms
Public Class Form1
 
    Private pictureBox1 As New PictureBox()
 
    Public Sub CreateBitmapAtRuntime()
        pictureBox1.Size = New Size(210, 110)
        Me.Controls.Add(pictureBox1)
 
 
        Dim flag As New Bitmap(200, 100)
        Dim flagGraphics As Graphics = Graphics.FromImage(flag)
        Dim red As Integer = 0
        Dim white As Integer = 11
        While white <= 100
            flagGraphics.FillRectangle(Brushes.Red, 0, red, 200, 10)
            flagGraphics.FillRectangle(Brushes.White, 0, white, 200, 10)
            red += 20
            white += 20
        End While
        pictureBox1.Image = flag
 
    End Sub
 
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        CreateBitmapAtRuntime()
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles _
      Button2.Click
        ??????
 
    End Sub
End Class

Dim b As Bitmap = pictureBox1.Image.Clone
        Dim g As Graphics = Graphics.FromImage(pictureBox1.Image)
        g.Dispose()
        b.Dispose()
        pictureBox1.Image.RotateFlip(RotateFlipType.Rotate180FlipNone)
        pictureBox1.Refresh()

Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        Dim g As Graphics = PictureBox1.CreateGraphics()
        g.FillEllipse(Brushes.Red, 10, 10, 40, 40)
    End Sub
 
 
End Class

bmp.RotateFlip(RotateFlipType.Rotate180FlipX)

gr.DrawImage(Bild, 101, 100, 582, 300)

Module modBitmapFunctions
 
    <System.Runtime.CompilerServices.Extension()> _
    Public Function Zoom(ByVal bmp As Bitmap, _
        zoomfactor As Double) As Bitmap
 
        If bmp Is Nothing Then Return Nothing
 
        Dim newwidth As Integer = CInt(bmp.Width * zoomfactor)
        Dim newheight As Integer = CInt(bmp.Height * zoomfactor)
        If newwidth < 2 Or newheight < 2 Then Return Nothing
 
        Dim newrect As New Rectangle(0, 0, newwidth, newheight)
        Dim newbmp As New Bitmap(newwidth, newheight)
 
        Using g As Graphics = Graphics.FromImage(newbmp)
            g.DrawImage(bmp, newrect)
        End Using
        Return newbmp
    End Function
End Module