'Starten von Subclassing
Public Sub InitSubclassing(phWnd As Long)
    PrevMainWndProc = SetWindowLong(phWnd, GWL_WNDPROC, AddressOf MainWndProc)
End Sub
 
'Subclassing beenden
Public Sub EndSubclassing(phWnd As Long)
    Call SetWindowLong(phwnd, GWL_WNDPROC, PrevMainWndProc)
End Sub

 
Public PreMainWndProc As Long
 
Public Function MainWndProc(ByVal hWnd As Long, ByVal msg As Long, ByVal wParam _
  As Long, ByVal lParam As Long) As Long
    MainWndProc = CallWindowProc(PrevMainWndProc, hwnd, msg, wParam, lParam)
End Function