MouseDown                 用戶按下鼠標按鍵時發生事件

MouseUp                   用戶釋放鼠標按鍵時發生

MouseMove                 用戶移動鼠標時該事件發生。

鼠標右鍵 單擊 的事件 是怎么 獲取？？

不太明白您的問題，您是要獲取窗體的鼠標事件嗎？

代碼里

Sub UserForm1_MouseDown(Button, Shift, x, y)

End Sub
這樣就可以了

Sub UserForm1_MouseDown(Button, Shift, x, y)
application.MsgOut button
End Sub

根據button的返回數值，來判斷是左鍵還是右鍵