'Stellt eine komplette Linie dar.
    Public Class Line
        Public Color As System.Drawing.Color = Color.Black
        Public Thickness As Single = 2.5F
        Public Points As New List(Of Point)
    End Class
 
    'Eine Liste von Linien
    Private mLines As New List(Of Line)
 
    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        'Wenn linke Maustaste
        If e.Button = Windows.Forms.MouseButtons.Left Then
            'Wenn noch nie eine Line gezeichnet wurde
            If mLines.Count = 0 Then
                'Neue Linie hinzufügen
                mLines.Add(New Line)
            End If
            'Letzer Line in Liste neuen Punkt hinzugfügen
            mLines(mLines.Count - 1).Points.Add(e.Location)
        Else 'Wenn rechte Maustaste gedrückt wurde
            'Neue Line hinzufügen (ohne Punkte)
            'Dient dann z.B. für aufnahme neuer Punkte wenn wieder
            'die linke Maustaste gedrückt wurde.
            mLines.Add(New Line)
        End If
 
        'Neuzeichnen veranlassen
        PictureBox1.Invalidate()
    End Sub
 
    Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        'alle Linien durchgehen
        For Each myLine As Line In mLines
            Try
                'Neuen Stift erstellen mit den Daten der Linie
                Using myPen As New Pen(myLine.Color, myLine.Thickness)
                    'Curve mit Stift und Punkten zeichnen
                    e.Graphics.DrawCurve(myPen, myLine.Points.ToArray)
                End Using
            Catch ex As Exception
            End Try
        Next
    End Sub