Dim gpath As New GraphicsPath
                gpath.AddLine(p(0), p(1))
 
                Dim abstand As Int32 = 5
                If gpath.IsOutlineVisible(Maus.X, Maus.Y, New Pen(Color.Black, _
                  abstand)) = True Then
                    If PictureBox1.Cursor Is Cursors.Default Then
                        SnapOnLine = True
                        SnapOnLine_pos = index
                        Refresh()
                        PictureBox1.Cursor = Cursors.Cross
                        gpath.Dispose()
                        Exit For
                    End If
                Else
                    If PictureBox1.Cursor Is Cursors.Cross Then
                        SnapOnLine = False
                        PictureBox1.Cursor = Cursors.Default
                        Refresh()
                        gpath.Dispose()
                        Exit For
                    End If
 
                End If