wnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Private Const WH_CALLWNDPROC = 4

' Misc Windows messages
Private Const WM_CREATE = &amp;H1
Private Const WM_DESTROY = &amp;H2
Private Const WM_PARENTNOTIFY = &amp;H210

' Window Styles
Private Const WS_OVERLAPPED = &amp;H0&amp;
Private Const WS_POPUP = &amp;H80000000
Private Const WS_CHILD = &amp;H40000000
Private Const WS_MINIMIZE = &amp;H20000000
Private Const WS_VISIBLE = &amp;H10000000
Private Const WS_DISABLED = &amp;H8000000
