Hi Kandan,

Yes It does

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
MsgBox (Button)
End Sub

You can try others.

Does it help ?

Regards