こんにちはVB6を使っています。
テキストBOX（配列）に入力した文字をLabel（配列）に表示させ
プログラムでLoadさせて配列の数を増やして行きますが

テキストBOX（配列）とLabel（配列）を同じ数にしておけばいいのですが
使わない時も有りますので
テキストBOX（配列）に入力した時にLabel（配列）が無い場合エラーが
起きてしまいますLabel（配列）が有るか無いかの確認はプログラムで
出来るのですか？　

コントロールのIndex番号ぐらい自己管理すべきだと思いますが・・・。
(Dictionary使うとかして)

エラーがおきて困るというなら
エラールーチンで処理するのが簡単かと。

もちろん、調べるだけなら、
    Dim obj As Control
    For Each obj In Controls
        If obj.Name = "Label1" Then
            List1.AddItem obj.Name & "(" & obj.Index & ")"
        End If
    Next
みたいにして調べられますが・・・。

> コントロールのIndex番号ぐらい自己管理すべきだと思いますが・・・。
> (Dictionary使うとかして)
>
> エラーがおきて困るというなら
> エラールーチンで処理するのが簡単かと。
>
> もちろん、調べるだけなら、
>     Dim obj As Control
>     For Each obj In Controls
>         If obj.Name = "Label1" Then
>             List1.AddItem obj.Name & "(" & obj.Index & ")"
>         End If
>     Next
> みたいにして調べられますが・・・。
ありがとう御座います
さっそくやってみます

> もちろん、調べるだけなら、
>     Dim obj As Control
>     For Each obj In Controls
>         If obj.Name = "Label1" Then
>             List1.AddItem obj.Name & "(" & obj.Index & ")"
>         End If
>     Next
> みたいにして調べられますが・・・。

こういう書き方もできます。

Dim Lbl As VB.Label
For Each Lbl In Label1
    List1.AddItem "Label1(" & Lbl.Index & ")"
Next