Private Type CUSTOMVERTEX
x As Single
y As Single
z As Single
rhw As Single
color As Long
End Type
Const D3DFVF_CUSTOMVERTEX=(D3DFVF_XYZRHW Or D3DFVF_DIFFUSE)
Dim Vertices as CUSTOMVERTEX
''''''''''''
''''''''
With Vertices
.x=150
.y=50
.z=0.5
.rhw=1
.color=&HFFFF0000
End With