Forms VisualBasic Script

Private Sub cmdForEachNext_Click()
    Dim ctl As Control
    For Each ctl In Controls
        ctl.FontSize = 8
    Next ctl
End Sub