Public Class Form1
 
    Dim z As Graphics = CreateGraphics()
    Dim stift As New Pen(Color.Red, 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)
    End Sub
 
End Class