Dynamic Bitmap in VB.NET

The following code snippet shows how to create a bitmap at run-time in VB.NET.

Private pictureBox1 As New PictureBox()

Public Sub CreateBitmapAtRuntime()

    pictureBox1.Size = New Size(210, 110)

    Me.Controls.Add(pictureBox1)

    Dim dynamicBitmap As New Bitmap(200, 100)

    Dim g As Graphics = Graphics.FromImage(dynamicBitmap )

    Dim red As Integer = 0

    Dim range As Integer = 11

    While range <= 100

        g.FillRectangle(Brushes.Red, 0, red, 200, 10)

        g.FillRectangle(Brushes.White, 0, white, 200, 10)

        red += 20

        range += 20

    End While

    pictureBox1.Image = dynamicBitmap

End Sub