Dim c As Control
 
        For Each c In Me.Controls
            If TypeOf c Is Command Then
                ' das geht nicht:
                c.BackColorTo = vbRed
                ' damit klappts auch nicht:
                c.BackColor = vbRed
            End If
        Next