度々すいません。

ＶＢ６で開発しているのですが、
フォームを表示した時に、フォームにあるtextboxの名前を取得することは
できなんでしょうか？
　フォームには、テストボックスとコンボボックスが合計で７０個ほどあり
配列には、現時点ではなっていません。
　画面上にあるTEXTBOX名をControl変数に代入したいのですが、中々いい方法が
思いつかず悩んでいます。
　代入はやはり７０行記述する方法しかないでしょうか？


Private Const LogCtrNum = 75
Private Ctr(LogCtrNum) As Control

Private Sub Form_Load()
CALL SetFocuName
End Sub

Private Sub SetFocuName()
  Ctr(1) = Txt1
  Ctr(2) = Txt2
  Ctr(3) = Cob1
  ・
  ・
  ・
  Ctr(75) = Txt70
End Sub

ME.Controls(0).Name　で解決できました。

お騒がせしました。

ありがとうございました。

ME.Controls(0).Name　で名前は取得できるようになったのですが、

Ｓet　ctr(０)＝Me.Controls(lngCnt).Name　
でエラーがでてしまいました。
424　オブジェクトが必要です。

Me.Controls(lngCnt).Nameでは無理なのでしょうか

.Nameはプロパティですからね。
Setでは.Nameプロパティがぶら下がって（？）いるコントロール自体を指定してあげないと。

> Ｓet　ctr(０)＝Me.Controls(lngCnt).Name　
> でエラーがでてしまいました。
> 424　オブジェクトが必要です。
>
「Me.Controls(lngCnt)」ここまでで、コントロールそのものですので、「.Name」はいりません。


> Me.Controls(lngCnt).Name
では、いわば、

>  Set Ctr(1) = Txt1.Name
としているようなものです。

> Me.Controls(lngCnt).Nameでは無理なのでしょうか
未確認ですが型が違いませんか？
.NameプロパティはString型のような気がするので、Controlには入らないと思います。
Me.Controls(lngCnt)とかでもよさそうな。

琴さん　大吉末吉さん　asdfさん　
ありがとうございます。

確かにその通りです。
全くバカなことをかいてすいませんでした。

解決できました。


本当にありがとうございました。