VB Code:
If KeyCode = vbKeyUp Then
intX = intX - 0.5
D3DXMatrixLookAtLH matView, MakeVector(intX, intY, intZ), MakeVector(intX - 5, intY, intZ), MakeVector(0, 0, 1)
D3DDevice.SetTransform D3DTS_VIEW, matView
End If
If KeyCode = vbKeyDown Then
intX = intX + 0.5
D3DXMatrixLookAtLH matView, MakeVector(intX, intY, intZ), MakeVector(intX - 5, intY, intZ), MakeVector(0, 0, 1)
D3DDevice.SetTransform D3DTS_VIEW, matView
End If
If KeyCode = vbKeyLeft Then
intY = intY + 0.5
D3DXMatrixLookAtLH matView, MakeVector(intX, intY, intZ), MakeVector(intX - 5, intY, intZ), MakeVector(0, 0, 1)
D3DDevice.SetTransform D3DTS_VIEW, matView
End If
If KeyCode = vbKeyRight Then
intY = intY - 0.5
D3DXMatrixLookAtLH matView, MakeVector(intX, intY, intZ), MakeVector(intX - 5, intY, intZ), MakeVector(0, 0, 1)
D3DDevice.SetTransform D3DTS_VIEW, matView
End If