No se si se podrá realizar pero ahí va mi pregunta

[lldyn]

Esa es la función que me Sale

Public Function aplicacolor()

Dim Control As Control

colfondo = Val(rscof!fondo)
coltexto = Val(rscof!texto)
ccapturf = Val(rscof!fondo2)
ccapturt = Val(rscof!texto2)

For i = 0 To (Me.Controls.Count - 1)
Set Control = Me.Controls(i)
Nombrecont = Me.Controls(i).Name

tipo = UCase(TypeName(Control))
Select Case tipo
Case "PICTUREBOX"
Control.BackColor = colfondo
Case "FRAME"
Control.BackColor = colfondo
Control.ForeColor = coltexto
Case "LABEL"
If Nombrecont <> "muestrac" Then
Control.BackColor = colfondo
Control.ForeColor = coltexto
'Else
' Mstbox "muestrac"
End If
Case "TEXTBOX"
Control.BackColor = ccapturf
Control.ForeColor = ccapturt
Case "DRIVELISTBOX"
Control.BackColor = ccapturf
Control.ForeColor = ccapturt
Case "FILELISTBOX"
Control.BackColor = ccapturf
Control.ForeColor = ccapturt
Case "DIRLISTBOX"
Control.BackColor = ccapturf
Control.ForeColor = ccapturt
Case Else

End Select

Next

Me.BackColor = colfondo
End Function


Espero que a alguien le sirva