You can loop through control array (sample below) or controls collection (if you don't have control array):
VB Code:
  1. Dim i%
  2.  
  3. On Error Resume Next
  4.  
  5. For i = Frame.Lbound To Frame.Ubound
  6.     Frame(i).BackColor = vbBlue
  7.     Frame(i).ForeColor = vbWhite
  8. Next i