做了一个交换鼠标左右手习惯的示例。

附   件:

点击下载此附件

主要代码:

Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long) As Long

Private Sub cmb改变_Click()
    If Me.cmb改变.Caption = "左手习惯" Then
        SwapMouseButton (True)
        Me.cmb改变.Caption = "右手习惯"
    Else
        SwapMouseButton (False)
        Me.cmb改变.Caption = "左手习惯"

    End If
End Sub

图   示: