i have a function for create a plane just using Math 3D:
Private Sub DrawPlane(Position As Position3D, Size As Size3D, Rotation As Angle3D, WorldSize As Size3D, color As ColorConstants)
Dim Points(4) As POINTAPI
Dim NewPoint As POINTAPI
Dim NewPosition3D As Position3D
Dim RotatedPosition As Position3D
Dim DestinyPosition As Position3D
Static FixedPoint0(4) As Position3D
Dim sizeD As Size3D
Dim temp As Double
FillSize3D sizeD, 0, 0, 0
'FillPosition3D RotatedPosition, Position.X + Size.Width / 2, Position.Y + Size.Height / 2, Position.Z + Size.ZDepth / 2
With Player1.Position
FillPosition3D RotatedPosition, .X, .Y, .Z 'Camera Position
End With
If …