VB Code:
Private type gameObjects
V(3) as D3DTLVERTEX
X as single
Y as single
End Type
Dim Things(100) as gameObjects
Private Sub Form_load()
'Intialize all the game objects vertex data and store it in the objects
End Sub
Function DrawMe(what as integer)
Device.DrawPrimativeUP Things(i).V(0),2
End Function
VB Code:
Private type gameObjects
X as single
Y as single
End Type
Dim Things(100) as gameObjects
Function DrawMe(what as integer)
Dim v(3) as D3DTLVERTEX
'Generate the vertex data and store it in V
Device.DrawPrimativeUP v(0),2
End Function