www.pudn.com > VB-KAOQINXITONG.zip > MAdvancedSubclass.bas

Attribute VB_Name = "MAdvancedSubclass" 
  Option Private Module 
  Option Explicit 
   
Public Function WindProc(ByVal hwnd&, ByVal uMsg&, ByVal wParam&, ByVal lParam&) As Long 
  WindProc = LoSubclassFromhWnd(hwnd).WindowProc(hwnd, uMsg, wParam, lParam) 
End Function 
 
Private Function LoSubclassFromhWnd(ByVal hwnd As Long) As clsSubclass 
   
  Dim SubclassEx As clsSubclass, pObj As Long 
     
  pObj = GetProp(hwnd, ByVal "nvAdvSubcls") 
 
  CopyMemory SubclassEx, pObj, 4& 
   
  Set LoSubclassFromhWnd = SubclassEx 
   
  CopyMemory SubclassEx, 0&, 4& 
   
End Function