valeu pessoal.

o exemplo do Ama, eu fiz uma adaptação:

 

    Dim objControle As Control
    Dim objLabel As Label
    Dim intI As Integer
   
    intI = 0
   
    For Each objControle In Me
        If TypeOf objControle Is Label Then
            objControle.BackColor = QBColor(intI)
            intI = intI + 1
        End If
    Next