' Subclass-Klasse instanzieren
Dim WithEvents oSubClassA As clsSubClass
Dim WithEvents oSubClassB As clsSubClass
 
Private Sub cmdStart_Click()
  oSubClassA.StartSubclass cmdStart.hWnd
  oSubClassA.StartSubclass cmdStop.hWnd
End Sub
 
Private Sub cmdStop_Click()
  ' Subclassing beenden
  oSubClassA.StopSubClass
  oSubClassB.StopSubClass
End Sub
 
Private Sub Form_Load()
  ' Subclass-Objekt erstellen
  Set oSubClassA = New clsSubClass
  Set oSubClassB = New clsSubClass
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
  oSubClassA.StopSubClass
  oSubClassB.StopSubClass
  DoEvents
End Sub
 
Private Sub oSubClassA_MessageCatched(ByVal hWnd As Long, uMsg As Long, wParam _
  As Long, lParam As Long, Cancel As Boolean)
  Debug.Print "AAAA uMsg: " & GetWM_Constant_Name(uMsg) & _
    ", wParam: " & CStr(wParam) & ", lParam: " & CStr(lParam)
End Sub
 
Private Sub oSubClassB_MessageCatched(ByVal hWnd As Long, uMsg As Long, wParam _
  As Long, lParam As Long, Cancel As Boolean)
   Debug.Print "BBBB uMsg: " & GetWM_Constant_Name(uMsg) & _
    ", wParam: " & CStr(wParam) & ", lParam: " & CStr(lParam)
End Sub

>> <<