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

[Neverhood]

Yo uso el siguiente código y me funciona muy bien:

Código:

Public Sub Color(ByVal Forma As Form)
  Dim InControl As Integer
  Forma.BackColor = &H80000001
    For InControl = 0 To Forma.Controls.Count - 1
      If TypeOf Forma.Controls(InControl) Is Label Then
        Forma.Controls(InControl).BackColor = &HE0E0E0
        Forma.Controls(InControl).ForeColor = &H8000000D
      ElseIf TypeOf Forma.Controls(InControl) Is Frame Then
        Forma.Controls(InControl).BackColor = &HE0E0E0
      ElseIf TypeOf Forma.Controls(InControl) Is Line Then
        Forma.Controls(InControl).BorderColor = RGB(0, 0, 0)
      ElseIf TypeOf Forma.Controls(InControl) Is CommandButton Then
        Forma.Controls(InControl).BackColor = RGB(0, 127, 0)
      ElseIf TypeOf Forma.Controls(InControl) Is PictureBox Then
        Forma.Controls(InControl).BackColor = &HE0E0E0
      ElseIf TypeOf Forma.Controls(InControl) Is OptionButton Then
        Forma.Controls(InControl).BackColor = &HE0E0E0
        Forma.Controls(InControl).ForeColor = RGB(255, 255, 255)
      End If
    Next InControl
End Sub

En el LOAD del formulario, lo mandas llamar:

Color Me