w failed
  Call col_hWnds.Add(hWnd, "h" &amp; hWnd)                    'Add the window
   handle to the collection
  WindowCreate = hWnd
End Function

'Destroy window
Public Function WindowDestroy(ByVal hWnd As Long) As Boolean
Dim sKey As String
  
  On Error GoTo Catch
    sKey = "h" &amp; hWnd
    hWnd = col_hWnds.Item(sKey)                           'Ensure the handle is
     in the collection
    Call WinSubHook.DestroyWindow(hWnd)                   'Destroy the window
    Call col_hWnds.Remove(sKey)  