'Erfasst StartPunkt für eine neue Linie
 
        PunktStart.X = e.X
        PunktStart.Y = e.Y
 
 
 
        If Linien.GetAnzahlLinie > 0 Then
            Dim KleinsterWert As Integer = 1000
            Dim ArNr As Integer = 0
            Dim ArKleinsterWertSPx As Integer = 0
            Dim ArKleinsterWertSPy As Integer = 0
            Dim ArKleinsterWertEPx As Integer = 0
            Dim ArKleinsterWertEPy As Integer = 0
 
            Dim ArSPx(Linien.GetAnzahlLinie - 1) As Integer
            Dim ArSPy(Linien.GetAnzahlLinie - 1) As Integer
            Dim ArEPx(Linien.GetAnzahlLinie - 1) As Integer
            Dim ArEPy(Linien.GetAnzahlLinie - 1) As Integer
 
            For forP = 0 To Linien.GetAnzahlLinie - 1
                ArSPx(forP) = Math.Abs(Linien.StartPunkt(forP).X - PunktStart.X)
                ArSPy(forP) = Math.Abs(Linien.StartPunkt(forP).Y - PunktStart.Y)
                ArEPx(forP) = Math.Abs(Linien.EndPunkt(forP).X - PunktStart.X)
                ArEPy(forP) = Math.Abs(Linien.EndPunkt(forP).Y - PunktStart.Y)
            Next
 
            For Each Wert As Integer In ArSPx
                If Wert < KleinsterWert Then
                    KleinsterWert = Wert
                    ArKleinsterWertSPx = ArNr
                End If
                ArNr += 1
            Next
 
            ArNr = 0
            KleinsterWert = 1000
            For Each Wert2 As Integer In ArSPy
                If Wert2 < KleinsterWert Then
                    KleinsterWert = Wert2
                    ArKleinsterWertSPy = ArNr
                End If
                ArNr += 1
            Next
 
            ArNr = 0
            KleinsterWert = 1000
            For Each Wert3 As Integer In ArEPx
                If Wert3 < KleinsterWert Then
                    KleinsterWert = Wert3
                    ArKleinsterWertEPx = ArNr
                End If
                ArNr += 1
            Next
 
            ArNr = 0
            KleinsterWert = 1000
            For Each Wert4 As Integer In ArEPy
                If Wert4 < KleinsterWert Then
                    KleinsterWert = Wert4
                    ArKleinsterWertEPy = ArNr
                End If
                ArNr += 1
            Next
 
 
            If Math.Abs(ArSPx(ArKleinsterWertSPx)) + Math.Abs(ArSPy( _
              ArKleinsterWertSPy)) < Math.Abs(ArEPx(ArKleinsterWertEPx)) + _
              Math.Abs(ArEPy(ArKleinsterWertEPy)) Then
 
                If Math.Abs(ArSPx(ArKleinsterWertSPx)) < Math.Abs(ArSPy( _
                  ArKleinsterWertSPy)) Then
                    PunktStart = Linien.StartPunkt(ArKleinsterWertSPx)
                Else
                    PunktStart = Linien.StartPunkt(ArKleinsterWertSPy)
                End If
 
            Else
 
                If Math.Abs(ArEPx(ArKleinsterWertEPx)) < Math.Abs(ArEPy( _
                  ArKleinsterWertEPy)) Then
                    PunktStart = Linien.EndPunkt(ArKleinsterWertEPx)
                Else
                    PunktStart = Linien.EndPunkt(ArKleinsterWertEPy)
 
                End If
 
            End If