Public Sub SetColors(AtForm As Form)
  Dim Cur As Control
 
  On Local Error Resume Next
 
  For Each Cur In AtForm.Controls
    If TypeName(Cur) Like "ss*" Then Set Cur.ColorController = Me
  Next
 
  On Local Error GoTo 0
 
End Sub

Fehler beim Kompilieren:
Private Objektmodule dürfen in öffentlichen Obejktmodulen nicht als Parameter _
  oder Rückgabetypen für Öffentliche Prozeduren, als öffentliche _
  Datenmitglieder, oder als Felder öffentlicher, benutzerdefinierter Typen _
  verwendet werden.

{brigens> Ein Kezboard/Treiber ist v;llig [berfl[ssig