in form i have
i allway's get GPF !!! hyw ?

---
Private Sub Form_Load()
hook = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf WindProc)
End Sub

Private Sub Form_Unload(Cancel As Integer)
SetWindowLong Me.hwnd, GWL_WNDPROC, hook
hook = 0
End Sub
-------
module i have :
--------
Public Function WindProc(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Form1.Caption = wMsg
WindProc = CallWindowProc(hook , hwnd&, wMsg&, wParam&, lParam&)
End Function