'Modulcode
Option Explicit
 
Public Const WH_CALLWNDPROC = 4
Public Const SC_MINIMIZE = &HF020
 
Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode _
  As Long, ByVal wParam As Long, lParam As Any) As Long
Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal _
idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As _
Long) As Long
Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public hHook As Long
Public Function WindowProc(nCode As Long, ByVal wParam As Long, ByVal lParam As _
  Long) As Long
    If nCode < 0 Then
            WindowProc = CallNextHookEx(hHook, nCode, wParam, lParam)
        Else
 
    End If
 
End Function
'Formcode, an sich nix besonderes
Private Sub Form_Load()
    hHook = SetWindowsHookEx(WH_CALLWNDPROC, AddressOf WindowProc, _
      App.hInstance, App.ThreadID)
End Sub
Private Sub Form_Unload(Cancel As Integer)
    UnhookWindowsHookEx hHook
End Sub