SwapMouseButton VB声明 
Declare Function SwapMouseButton Lib "user32" Alias "SwapMouseButton" (ByVal bSwap As Long) As Long 
说明 
决定是否互换鼠标左右键的功能 
返回值 
Long,TRUE(非零)表示鼠标按钮的功能在调用这个函数之前已经互换;否则返回零 
参数表 
参数 类型及说明 
bSwap Long,倘若为TRUE(非零),则互换两个鼠标按钮的功能。FALSE则恢复正常状态 
注解 
鼠标是一种共享资源,所以这个函数会对系统中的所有应用程序造成影响
----------------------------------------------------------你这样调用:
public function  IsSwap() as boolean
    if SwapMouseButton(0) then
        IsSwap=true
        SwapMouseButton(1)
    else
        IsSwap=false
    end if
end function