Forms VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Forms
  4. With End With construct is often used along with the For Each Next construct
Private Sub cmdForEachWith_Click()
    Dim ctl As Control
    For Each ctl In Controls
        With ctl
            .ForeColor = 16711680
            .FontName = "Arial"
            .FontSize = 14
        End With
    Next ctl
End Sub