Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As _
    System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
      'Variablen weggelassen weil Posting zu lang
 
        'Erfasst StartPunkt für eine neue Linie
 
        PunktStart.X = e.X
        PunktStart.Y = e.Y
 
        'Alle vorhanden Linien an der X Koordinate messen
        If Linien.GetAnzahlLinie > 0 Then
            For forAmNächsten = 0 To Linien.GetAnzahlLinie - 1
                AbstandX = Math.Abs(PunktStart.X - Linien.StartPunkt( _
                  forAmNächsten).X)
                If AbstandX < KleinsterAbstandX Then
                    'Kleinsten ABstand speichern
                    KleinsterAbstandX = AbstandX
                    PunktMitKleinstenAbstX = forAmNächsten
                End If
            Next
        End If
 
        'Alle vorhanden Linien an der X Koordinate messen -- gleiches für 
        ' Endpunkte
        If Linien.GetAnzahlLinie > 0 Then
            For forAmNächsten = 0 To Linien.GetAnzahlLinie - 1
                AbstandXep = Math.Abs(PunktStart.X - Linien.EndPunkt( _
                  forAmNächsten).X)
                If AbstandXep < KleinsterAbstandXep Then
                    'Kleinsten ABstand speichern
                    KleinsterAbstandXep = AbstandXep
                    PunktMitKleinstenAbstXep = forAmNächsten
                End If
            Next
        End If
 
        'Alle verhandenLinien an der YKoordinate messen
        If Linien.GetAnzahlLinie > 0 Then
            For forAmNächsten = 0 To Linien.GetAnzahlLinie - 1
                AbstandY = Math.Abs(PunktStart.Y - Linien.StartPunkt( _
                  forAmNächsten).Y)
                If AbstandY < KleinsterAbstandY Then
                    'kleinsten ABstand speichern
                    KleinsterAbstandY = AbstandY
                    PunktMitKleinstenAbstY = forAmNächsten
                End If
            Next
        End If
 
 
        'Alle verhandenLinien an der YKoordinate messen ---gleiches für alle 
        ' Endpunkte
        If Linien.GetAnzahlLinie > 0 Then
            For forAmNächsten = 0 To Linien.GetAnzahlLinie - 1
                AbstandYep = Math.Abs(PunktStart.Y - Linien.EndPunkt( _
                  forAmNächsten).Y)
                If AbstandYep < KleinsterAbstandYep Then
                    'kleinsten ABstand speichern
                    KleinsterAbstandYep = AbstandYep
                    PunktMitKleinstenAbstYep = forAmNächsten
                End If
            Next
        End If
 
 
 
        If Linien.GetAnzahlLinie > 0 Then
            If KleinsterAbstandX <= KleinsterAbstandXep Then
                If KleinsterAbstandX <= KleinsterAbstandYep Then
                    If KleinsterAbstandX <= KleinsterAbstandY Then
                        PunktStart = Linien.StartPunkt(PunktMitKleinstenAbstX)
                    End If
                End If
 
            ElseIf KleinsterAbstandXep <= KleinsterAbstandX Then
                If KleinsterAbstandXep <= KleinsterAbstandY Then
                    If KleinsterAbstandXep <= KleinsterAbstandYep Then
                        PunktStart = Linien.EndPunkt(PunktMitKleinstenAbstXep)
 
                    End If
                End If
            ElseIf KleinsterAbstandY <= KleinsterAbstandYep Then
                If KleinsterAbstandY <= KleinsterAbstandX Then
                    If KleinsterAbstandY <= KleinsterAbstandXep Then
                        PunktStart = Linien.StartPunkt(PunktMitKleinstenAbstY)
 
                    End If
                End If
            ElseIf KleinsterAbstandYep <= KleinsterAbstandY Then
                If KleinsterAbstandYep <= KleinsterAbstandX Then
                    If KleinsterAbstandYep <= KleinsterAbstandXep Then
                        PunktStart = Linien.EndPunkt(PunktMitKleinstenAbstYep)
                    End If
                End If
            End If
 
        End If
        'Bereitsvorhandene Linien zeichnen
.....'Posting zu lang muss den rest weglassen
    End Sub