Structure strGerade
        Private m_X As Single
        Private m_Y As Single
        Private m_m As Single
        Private m_b As Single
        Sub New(ByVal X As Single, ByVal Y As Single, ByVal Winkel As Single)
            m_X = X
            m_Y = Y
            m_m = Math.Tan(Winkel * Math.PI / 180)
            m_b = Y - m_m * X
            If m_m = 0 Or X - Y = 0 And Winkel = 45 Then
                m_b = 0
            End If
        End Sub
        ReadOnly Property X() As Single
            Get
                Return m_X
            End Get
        End Property
        ReadOnly Property Y() As Single
            Get
                Return m_Y
            End Get
        End Property
        ReadOnly Property m() As Single
            Get
                Return m_m
            End Get
        End Property
        ReadOnly Property b() As Single
            Get
                Return m_b
            End Get
        End Property
    End Structure
    Function GetSchnittpunkt(ByVal Gerade1 As strGerade, ByVal Gerade2 As _
      strGerade) As PointF
        Dim KreuzX As Single = (Gerade2.b - Gerade1.b) / (Gerade1.m - Gerade2.m)
        Dim KreuzY As Single = Gerade1.m * KreuzX + Gerade1.b
        If KreuzX.ToString = "n. def." And KreuzY.ToString = "n. def." Then
            Throw New Exception("Die Linien Verlaufen Parallel und treffen" & _
              "sich" & _
              "deshalb Nie.") 'Edit: wird auch bei einem Winkel von 90 Grad 
            ' aufgerufen...
        End If
        Return New PointF(KreuzX, KreuzY)
    End Function

        Try
            Dim g1 As strGerade = New strGerade(0, 0, 45)
            Dim g2 As strGerade = New strGerade(21.2419, 11.8393, 10) 
            Dim pnt As PointF = GetSchnittpunkt(g1, g2)
            MsgBox(pnt.ToString) 'Gibt den Schnittpunkt aus
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try