Mega Code Archive

 

Categories / VisualBasic Script / Forms

 

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