Sub Usercontrol_load() 'oder wie auch immer das heißt
Dim I as long
i = getwindowlong(usercontrol.hwnd, gwl_wndproc)
setwindowlong usercontrol.hwnd, gwl_wndproc, addressof subclass
End SUb

Public oldAddr as long
 
function subclass(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, _
  ByVal lParam As Long)as long
if msg = wm_click then 'oder so was
'============= Hier auswerten
end if
subclass=callwindowproc(hwnd,msg,wparam,lparam)
end function

???????????????????????????????????????????????????????????
e7o.de | jetzt (wirklich) neu!