Public Function Linie(ByVal p0 As Point3D, ByVal p1 As Point3D, ByVal _
          Farbe As Color, ByVal Dicke As Double) As _3DTools.ScreenSpaceLines3D
            'zeichnet eine Linie von p0 bis p1
            Dim Pkte As Point3DCollection = New Point3DCollection
            Pkte.Add(p0)
            Pkte.Add(p1)
 
            Dim oLinie As _3DTools.ScreenSpaceLines3D = New _
              _3DTools.ScreenSpaceLines3D()
            oLinie.Points = Pkte
            oLinie.Color = Farbe
            oLinie.Thickness = Dicke
            Return oLinie
        End Function

Grüße von Paul