[color=green]'Deklaration des Events...
Public Event MessageCatched( _
  ByVal hWnd As Long, _
  ByRef uMsg As Long, _
  ByRef wParam As Long, _
  ByRef lParam As Long, _
  ByRef Cancel As Boolean, _
  ByRef Value As Long)

Friend Function NewWindowProc( _
  ByVal hWnd As Long, _
  ByVal uMsg As Long, _
  ByVal wParam As Long, _
  ByVal lParam As Long) As Long
 
  Dim bCancel As Boolean, nVal As Long
 
  ' Standard Message weiterleiten
  bCancel = False
 
  NewWindowProc = 0
  nVal = CallWindowProc( _
    mvar_OldWindowProc, hWnd, uMsg, wParam, lParam)
 
  ' Ereignis auslösen
  RaiseEvent MessageCatched(hWnd, uMsg, wParam, lParam, bCancel, nVal)
 
  ' Wenn die Nachricht nicht unterbunden wurde,
  ' dann weiterleiten
  If Not bCancel Then NewWindowProc = nVal
End Function