Hello,
                I have used an application level hook in VB. Following
is code,

Public 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 Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook
As Long) As Long
Private KeyboardHandle As Long
Public Const WM_LBUTTONUP = &H202
Public Const WM_RBUTTONUP = &H205
Private Const WH_MOUSE = 7
Public Sub HookKeyboard()
    
  KeyboardHandle = SetWindowsHookEx(WH_MOUSE, _
  AddressOf MouseCallback, App.hInstance, 0&)


End Sub
Public Sub ab()
    MsgBox (UnhookWindowsHookEx(KeyboardHandle))
End Sub
Public Function MouseCallback(ByVal Code As Long, _
    ByVal wParam As Long, ByVal lParam As Long) As Long
    
    If wParam = WM_RBUTTONUP Then
    ElseIf wParam = WM_LBUTTONUP Then
    End If

End Function

I am capturing mouse events. The problem is whenever application lost
focus, my hook stop working when application gets back focus again.
After getting focus back I again hook the mouse and stats again but
with different value of  ‘ KeyboardHandle’ (KeyboardHandle
= SetWindowsHookEx(WH_MOUSE,  AddressOf MouseCallback, App.hInstance,
0&).
       Bye
---
þ RIMEGate(tm)/RGXPost V1.14 at BBSWORLD * Info{at}bbsworld.com

---
 * RIMEGate(tm)V10.2áÿ* RelayNet(tm) NNTP Gateway * MoonDog BBS
 * RgateImp.MoonDog.BBS at 6/24/03 10:10:48 AM