Indexがあるオブジェクトを操作するには

解決

---

フォームにIndexを持ったText1とLabel1〜10があります
Text1(0)・・・Text1(10)と増えていき
そこには数字を入力する予定です
Label1・・・・・Label10とIndexを持ったLabelの色を変えるために
Enabledにしようと思っていますが
ControlsでIndexを持つものを操作しようとすると
うまくいきません
初心者なのでどなたか質問の仕方も
うまくありませんがよろしくお願いします
Private Sub Text1_Change(Index As Integer)
dim i as Integer
    i=Cint(Text1(Index).Text)
    CallByName Me.Controls(Label1(i)), "Enabled", VbLet, False
End Sub

編集 削除

---

CallByNameの使い方は知らないですけど、↓でいけませんか？

Me.Controls("Label1")(i).Enabled = False

編集 削除

---

ありがとうございました
ご指摘のようにしたら
うまく行きました

結局256以上のオブジェクトを作成するので
フォームを分けて作らないと行けない事に
気が付きました(;_;)

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。