[RESOLVED] Condense code...

[BrailleSchool]

I think this is what you want:

Private Sub Form_Load()
Dim a as Long
 
    Call Button_Captions
    Call Label_Captions
    
    Me.BackColor = vbBlue
       
     With Frame
           For a = .LBound to .UBound    
                With .Item(a)
                     .BackColor = vbBlue
                     .ForeColor = vbWhite
                End With
     End With
End Sub

Compile error:
end with without with. (last end with -- interesting)