Visual Basic - rutina para formulario

Hola a todos
Estoy haciendo un rutina para cuando un control de formulario reciba el enfoque cambie el color y me informe en statusbar1.

Me.crtParte.BackColor = &H80000005
StatusBar1.Panels(3).Text = ""

eso es fácil pero cuando quiero que el nombre de me.control lo coja automático para poder llamar a la rutina de la siguigiente forma
Call activarColor(campo, &H80000018, "Introducir Numero de Parte:", True)

El nombre del campo no lo coge y me da error, esto es lo que he echo asta ahora..

Private Sub activarColor(campo As Label, color, texto As String, sino As Boolean)
If sino = True Then GoTo poner
campo.blackcolor = color
StatusBar1.Panels(3).Text = texto
End if
Exit Sub
poner:
campo.blackcolor = color
StatusBar1.Panels(3).Text = texto
End Sub

he probado con campo as control pero no me funciona como lo puedo hacer
gracias
un saludo

Usa la instruccion Screen.ActiveControl

De manera

Private sub text1_Getfocus(bla bla)
poncolor(color)
end sub

Private sub poncolor()

Screen.ActiveControl.BackColor = vbyellow
end sub

He simplificado mucho tu rutina, pero "me se" entiende, no?