Sub New(ByVal X1 As Single, ByVal X2 As Single, ByVal Y1 As Single, _
          ByVal Y2 As Single)
            m_X1 = X1
            m_X2 = X2
            m_Y1 = Y1
            m_Y2 = Y2
            m_m = (Y2 - Y1) / (X2 - X1) ' Hier wird m berechnet
            m_b = Y2 - m_m * X2         ' Hier wird b berechnet
            If Y2 = Y1 Then m_m = 0
            If X2 = X1 Then m_b = Y2 - Y1 : m_m = 0
        End Sub