           m_lHookWndProc = SetWindowLong(CWP.hwnd, GWL_WNDPROC, AddressOf
              Form_WndProc)
          End If
      End Select
   End If
   AppHook = CallNextHookEx(m_hHook, idHook, wParam, ByVal lParam)
End Function

Private Function Form_WndProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal
 wParam As Long, ByVal lParam As Long) As Long
Dim lSetStyleEX As Long
   ' SPM - specific wnd proc for a form.  Only called once for the WM_CREATE
    message.
   Select Case Msg
   Case WM_CREATE
      Dim t