Dim z As Graphics
    Dim stift As New Pen(Color.Red, 5)
    Dim pinsel As New SolidBrush(Color.Red)
 
    Public Sub New()
        MyBase.New()
 
        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
 
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf 
        ' hinzu.
        z = CreateGraphics()
    End Sub