                         'Remove the handle
     from the collection
    WindowDestroy = True
Catch:
  On Error GoTo 0
End Function

'-----------------------------
' Private subroutines

'Return the address of the passed user32.dll api function
Private Function AddrFunc(sProc As String) As Long
  AddrFunc = WinSubHook.GetProcAddress(WinSubHook.GetModuleHandle("user32"),
   sProc)
End Function

'Return the address of the low bound of the passed table array
Private Function AddrMsgTbl() As Long
  On Error Res