Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
        Dim G As Graphics
        G = GetGraphicsObject()
        G.Clear(Color.Silver)
        Dim P As New Pen(Color.Blue)
        G.DrawRectangle(P, 10, 10, 200, 150)
        G.DrawLine(P, 10, 10, 210, 160)
        G.DrawLine(P, 210, 10, 10, 160)
        Me.Invalidate()
    End Sub
 
    Function GetGraphicsObject() As Graphics
        Dim bmp As Bitmap
        bmp = New Bitmap(Me.Width, Me.Height)
        Dim G As Graphics
        Me.BackgroundImage = bmp
        G = Graphics.FromImage(bmp)
        Return G
    End Function

signaturen find ich bl?de