ESTO ES LO QUE TENGO: En el MODULO:
Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Const WH_MOUSE = 7
En el Form:
Private Sub Timer1_Timer()
Dim x As Integer
x = SetWindowsHookEx(QUE BA AK) 'Ocea... no entiendo q ba ak
If x = 1 Then ''Ocea... no entiendo q ba ak
End 'Termino el PROGRAMA
End If
End sub
--------------------------
Si em explicas q tengo q hacer ak GRACIAS
