Public Class Form1
 
    Dim z As Graphics
    Dim stift As New Pen(Color.Blue, 5)
    Dim pinsel As New SolidBrush(Color.Red)
 
    Private Sub btnRechteck_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnRechteck.Click
        z.DrawRectangle(stift, 50, 50, 400, 200)
        z.FillRectangle(pinsel, 50, 50, 400, 200)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        z = CreateGraphics()
    End Sub
End Class