Here, you can try something like this. If you need me to explain it I can, but it should be pretty simple. Also, make sure you replace "test.b3d" with the model you want to use.
Graphics3D 800,600,32,1
SetBuffer BackBuffer()
Camera=CreateCamera()
PositionEntity Camera,0,3,-6
TurnEntity Camera,27.5,0,0
CameraProjMode Camera,2
CameraZoom Camera,0.1
Cube=LoadMesh("test.b3d")
FitMesh Cube,-5,-5,-5,10,10,10,1
Light=CreateLight()
TurnEntity Light,30,50,0
AmbientLight 50,50,50
Dim prX#(3)
Dim prY#(3)
While Not KeyDown(1)
Cls
RotateMesh Cube,0,1,0
UpdateWorld
RenderWorld
For s=1 To CountSurfaces(Cube)
Surf=GetSurface(Cube,s)
For t=0 To CountTriangles(Surf)-1
For v=0 To 2
Vert=TriangleVertex(Surf,t,v)
vX#=VertexX(Surf,Vert)
vY#=VertexY(Surf,Vert)
vZ#=VertexZ(Surf,Vert)
TFormPoint(vX#,vY#,vZ#,Cube,0)
vX#=TFormedX()
vY#=TFormedY()
vZ#=TFormedZ()
CameraProject(Camera,vX#,vY#,vZ#)
prX(v)=ProjectedX()
prY(v)=ProjectedY()
Color 0,255,0
Oval prX(v)-1,prY(v)-1,3,3
Next
Line prX(0),prY(0),prX(1),prY(1)
Line prX(1),prY(1),prX(2),prY(2)
Line prX(2),prY(2),prX(0),prY(0)
Next
Next
Color 255,255,255
SetFont LoadFont("Small Fonts",11)
Text 16,16,"Press <Esc> to End"
Flip
Wend