' Schnittpunkt zwischen 2 Segmenten berechnen und zeichnen
        Dim angle As Double = _
            Math.Atan(2 * Math.Tan(Math.PI * lastAngle / 180))
        If lastAngle > 90.0 AndAlso lastAngle <= 270.0 Then
            angle += Math.PI
        End If
        Dim r As New Rectangle(CInt(m.X * Math.Cos(angle)), _
                               CInt(m.Y * Math.Sin(angle)), 2, 2)