Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)
Dim formGraphics as System.Drawing.Graphics
formGraphics = Me.CreateGraphics()
formGraphics.DrawLine(myPen, 0, 0, 200, 200)
myPen.Dispose()
formGraphics.Dispose()

Private Sub Linien_zeichnen()
        Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Black)
        Dim formGraphics As System.Drawing.Graphics
        formGraphics = Me.CreateGraphics()
        formGraphics.DrawLine(myPen, 20, 100, 200, 100)
        'hier folgen noch diverse andere Linien
        myPen.Dispose()
        formGraphics.Dispose()
    End Sub