for next loop

[Neruda]

Hi, just a quick question, I wonder if there a better way to write the lines below, just trying to simplify and learn more elegant ways of writing codes,
Thanks all, hope u all well


[code]
Dim i As Integer
Dim textTab As Variant
Dim ctl As Control

For i = 0 To 9
        Set ctl = Me.Controls("cmd" & i + 1)
        If i <= UBound(textTab) Then ctl.Caption = textTab(i)
        If i > UBound(textTab) Then ctl.Visible = False
  Next i
 

[cactusdata]

I would do like this:

For i = 0 To 9
    Set ctl = Me.Controls("cmd" & i + 1)
    If i <= UBound(textTab) Then 
        ctl.Caption = textTab(i)
        ' ???
        ' ctl.Visible = True
    else
        ctl.Visible = False
    End If
Next

[twinnyfo]

And even perhaps:

For i = 0 To 9
    ctl.Visible = (i <= UBound(textTab))
    ctl.Caption = IIf(i <= UBound(textTab), _
                      textTab(i), _
                      "")
Next

[Neruda]

Uhh interesting, Thanks!