If diState.Key(200) > 0 Then ' up arrow
Rise = vecCameraTarget.z - vecCameraSource.z
Run = vecCameraTarget.X - vecCameraSource.X
If vecCameraSource.Y <= -9 Then
vecCameraSource.z = vecCameraSource.z + Rise / 5
vecCameraTarget.z = vecCameraTarget.z + Rise / 5
vecCameraSource.X = vecCameraSource.X + Run / 5
vecCameraTarget.X = vecCameraTarget.X + Run / 5
End If
If vecCameraSource.Y > -9 Then
vecCameraSource.z = vecCameraSource.z + Rise / 5
vecCameraTarget.z = vecCameraTarget.z + Rise / 5
vecCameraSource.X = vecCameraSource.X + Run / 5
vecCameraTarget.X = vecCameraTarget.X + Run / 5
End If
D3DXMatrixLookAtLH matView, vecCameraSource, _
vecCameraTarget, CreateVector(0, 1, 0)
d3d.Device.SetTransform D3DTS_VIEW, matView
End If