ユーザーフォームコントロールを非表示にするVBA関数

Question

Visible = Falseとしてデフォルト設定されている、名前がAccount1からAccount10の10のユーザーフォームコントロールがあります。私は昇順にコントロールを再表示する関数を作成しようとしています。

Private Sub AddButton_Click() 
Select Case CountTextBox.Value 
Case 1 
    Account1.Visible = True 
Case 2 
    Account2.Visible = True 
Case 3 
    Account3.Visible = True 
Case 4 
    Account4.Visible = True 
Case 5 
    Account5.Visible = True 
Case 6 
    Account6.Visible = True 
Case 7 
    Account7.Visible = True 
Case 8 
    Account8.Visible = True 
Case 9 
    Account9.Visible = True 
Case 10 
    Account10.Visible = True 
End Select 
End Sub 

このVBAコードを簡略化するにはどうすればよいですか？ @コミンテルンの答えに追加

Answer 1

、解決策は次のとおりです。

For i = 1 To 10 
    Me.Controls("Account" & i).Visible = True 
Next i