Public Sub CreateRectangle( _
   ByVal dWidth As Double, _
   ByVal dHeight As Double, _
   ByVal dCentrexpos As Double, _
   ByVal dCentreypos As Double, _
   ByVal dCentrezpos As Double, _
   ByVal dPlaneNormalxpos As Double, _
   ByVal dPlaneNormalypos As Double, _
   ByVal dPlaneNormalzpos As Double, _
   ByVal dPlaneUDirxpos As Double, _
   ByVal dPlaneUDirypos As Double, _
   ByVal dPlaneUDirzpos As Double, _
   ByRef Line3D() As Object _
)