Pass Control to Function/Sub

Hello

I'd like to pass a control to a function for further processing - but I can't make it work.

Which is the correct parameter type?
This doesn't work (just an example):

Sub ChangeColor(ByRef c As Controls)
MsgBox TypeName(c)
End Sub

This code would be called from a control the following way:

Call ChangeColor(ActiveControl)

Is this possible?

It should be a single object "As Control" (without s) :

Sub ChangeColor(ByRef c As Control)

You are welcome. Thanks for marking the thread as solved.


Regards