Hai.

Code:
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
End Sub
Whait is this 'Shift As Integer' ?

Pls