DirectX8! 3D help me! plz

[Wak]

I converted this DirectX7 project to DirectX8 and I am still having problems. Can someone plz help me, I don't know where I am going wrong. There is a form, frmMain and a module, modMain .

frmMain

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
    Case vbKeyUp
        KeyUp = True
    Case vbKeyDown
        KeyDown = True
    Case vbKeyLeft
        KeyLeft = True
    Case vbKeyRight
        KeyRight = True
End Select
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
    Case vbKeyUp
        KeyUp = False
    Case vbKeyDown
        KeyDown = False
    Case vbKeyLeft
        KeyLeft = False
    Case vbKeyRight
        KeyRight = False
    Case vbKeyEscape
        bRunning = False
End Select
End Sub

There isn't enough room to chuck it all in 1 post, so I'll put in another 1. In less than 5 minz.