Dim oSubClassA(10) As clsSubClass
'Hir musste ich allerings 'WithEvents' weglassen, da ich ansonten kein array 
' deklarieren kann
 
Private Sub cmdStart_Click()
  oSubClassA(0).StartSubclass cmdStart.hWnd
  oSubClassA(1).StartSubclass cmdStop.hWnd
End Sub
 
Private Sub Form_Load()
  ' Subclass-Objekt erstellen
  Set oSubClassA(0) = New clsSubClass
  Set oSubClassA(1) = New clsSubClass
End Sub
 
'aber wie muss dieser sub aussehen?? 
'ich bekomme keine fehlermeldung aber auch keine messages
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

>> <<