Thanks, I got already what I wanted:

Sub OPenMousenow()
Set ShellApp = CreateObject("Shell.Application")
ShellApp.ControlPanelItem ("C:\Windows\system32\main.cpl")
End Sub





Thanks Anyways.

"Peter T" wrote:

Function DefMouseButton(Optional nButton As Long = 0)

better as

Function DefMouseButton(Optional nButton As Long = 0) As Long

Peter T

"Peter T" <peter_t@discussions wrote in message
...
Private Declare Function SwapMouseButton Lib "user32" (ByVal _
bSwap As Long) As Long

Function DefMouseButton(Optional nButton As Long = 0)

DefMouseButton = SwapMouseButton(nButton)
End Function


DefMouseButton 1& ' right
DefMouseButton 0 ' left


Regards,
Peter T

"art" wrote in message
...
Hello:

I was wondering how I can write a VBA code that will allow me to change
the
mouse options in the control panel that switches primary and secondary
buttons. How can I access the control panel from excel? Please let me
know.

Thanks.