le hice una pequeña modificacion para que haga 2 cosas:
1- usa las teclas W A S D como cualquier juego.
2- corre (o camina mas rapido) con shift
Modifiquen este Sub: CheckInput()
Public Sub CheckInput()
Control.Mouse_RotateCamera Camera
If Control.CheckKBKeyPressed(iR_Key_A) Then Camera.MoveSide Movement
If Control.CheckKBKeyPressed(iR_Key_D) Then Camera.MoveSide -Movement
If Control.CheckKBKeyPressed(iR_Key_W) Then
If (GetKeyState(VK_SHIFT) And &HF0000000) Then
Camera.MoveForward (Movement * 2.5)
Else
Camera.MoveForward Movement
End If
End If
If Control.CheckKBKeyPressed(iR_Key_S) Then Camera.MoveForward -Movement
End Sub
Y agreguen estas declaraciones arriba:
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Const VK_SHIFT = &H10
saludos!