ループを使ってテキストボックスにマスクをかける

以前質問した「テキストボックスの名前に変数をつける」の
続きです。
取得した数をループを使ってテキストボックスに
挿入するのは、下記の方法で出来たのですが、

For 回数 = 1 To 挿入回数

Controls("Text" & カウンタ).Text = 取得した数
カウンタ = カウンタ + 1
Next

これと同様に、ループを使って
挿入したテキストボックスにマスクをかける
（テキストボックスに入力不可状態にする）
方法はあるのでしょうか？
Lockedとか使ってみてもダメでした。

No.3 ベストアンサー 回答者： taka_tetsu 回答日時： 2002/10/01 21:07

Controls("Text" & カウンタ).Locked = True

でだめですか？

もしくは
Controls("Text" & カウンタ).Enabled = False
でだめですか？

この回答へのお礼

＞回答者の皆様

ありがとうございました。
皆様の書き込みを参考にし、
マスクをかけれました(^^;

お礼日時：2002/10/01 22:04

No.2 回答者： imogasi 回答日時： 2002/10/01 21:05

Formにテキストボックスを貼り付けているとして、1つは貼り付け、あと２つはコピーでコントロール配列です。

FormのイベントＰｒｏｃに
Private Sub Form_Click()
Call test01
End Sub
Module1に
Sub test01()
For i = 0 To 2
Form1.Text1(i).Enabled = False
Next i
End Sub
と入れ、Formをクリックするとテキストボックス３つとも
使えなくなりました。

No.1 回答者： kazuhiko5681 回答日時： 2002/10/01 20:59

テキストボックスのEnabledプロパティをFalseに設定すると入力ができなくなります。

Me.Text1.Enabled = False
これで、Text1は入力不可状態になります。