[VB 6.0 SP6] Übergabe eines Controls an eine Funktion endet mit Fehler

[MultiStorm]

Hallo Alle zusammen,
ich habe folgendes Problem ich möchte ein Button (ctlGButtion.ocx) an eine Funktion übergeben
damit ich per Funktion den Schaltflächen ein einheitliches aussehen geben kann.
Mein Ansatz sah so aus:
ctlGButtion.ocx über Projekt -? Komponenten Verlinkt.
[Moldul1.bas]

Public Function TEST(ByRef Button As ctlGButton) as Boolean
	With Button
		.backcolor = vbred
		‘usw.
        End with
End function

Das Problem ist das er die Deklaration nicht anerkennt,
Fehler beim Kompilieren
Modul hat unzulässigen Type
Habe es auch schon ohne „ByRef“ Versucht, bekomme aber das gleiche Resultat.
Hat jemand eine gute idee ?
Muß ich den Button im Module noch anderswo deklarieren?

MFG & THX Im Vorraus

 

[Zvoni]

Public Function TEST(ByRef Button As Control) As Boolean

oder

Public Function TEST(ByRef Button As Object) As Boolean



Die zweite Variante funkt mit ziemlicher Sicherheit, nur dass man halt eben dann Late-Binding bekommt.