用with提高循环效率

Private Sub cmdFor_Click()
'一般的for语句循环
    Dim ctl As Control
    Dim i As Integer

    For i = 0 To Me.Controls.Count - 1
        Set ctl = Me.Controls(i)
        If TypeOf ctl Is CommandButton Then
            ctl.FontSize = 8
            ctl.Caption = "cmdLike"
        End If
    Next
End Sub

Private Sub cmdWith_Click()
'利用with语句循环
    Dim ctl As Control
    Dim j As Integer

    For j = 0 To Me.Controls.Count - 1
        Set ctl = Me(j)
        If TypeOf ctl Is CommandButton Then
            With ctl
                .FontSize = 8
                .Caption = "love love"
            End With
        End If
    Next
End Sub