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, Winkel As Single)
            m_X = X
            m_Y = Y
            m_m = Math.Tan(Winkel)
            m_b = Y1 - m_m * X1
        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)'genauso wie 
            ' hier...
            Dim pnt As PointF = GetSchnittpunkt(g1, g2)
            MsgBox(pnt.ToString)'Gibt den Schnittpunkt aus
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try