|
Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long)
Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
'Swap the mouse buttons
SwapMouseButton 1
'Wait 10 seconds
t = Timer
Do: DoEvents: Loop Until Timer > t + 10
'restore the mouse buttons
SwapMouseButton 0
End Sub
|
|