C# と VB.NET の質問掲示板

お世話になります。

タイトルのような事を実現する場合、どのようなコードになるでしょうか？

◆Form1に下記のオブジェクトがあります。
・Label1（ラベル）
・Button1（コマンドボタン）

◆このようにしてもエラーが出てしまいうまくいきません。
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim lbx As New Label
        Dim Stx As

        Stx = "Label1"
        lbx = CType(Stx, Label)
        '↑文字変数でオブジェクトにアクセスしたいのですが出来ません。エラーが出ます。

        'lbx = Label1
        '※↑こうすればうまくいきますが、オブジェクト名は固定ではなく文字変数にしたいのです。

        lbx.Text = "ok"

    End Sub

■No26730 (シウジ さん) に返信
>         Dim lbx As New Label
>         Dim Stx As
> 
>         Stx = "Label1"
>         lbx = CType(Stx, Label)
>         '↑文字変数でオブジェクトにアクセスしたいのですが出来ません。エラーが出ます。

Dim controlArr As Control() = Me.Controls.Find(Stx , True)
lbx = CType(controlArr(0), Label)
できるのではないでしょうか。

Control.ControlCollection.Find メソッド 
http://msdn.microsoft.com/ja-jp/library/system.windows.forms.control.controlcollection.find.aspx

みきぬ様
ご教授いただいたとおり、　

         Stx = "Label1"
	lbx = CType(Me.Controls(Stx), Label)
	lbx.Text = "ok"

で出来ました。
--------------------------------
IIJIMAS様

ご教授いただいたコードそのままで出来ました。
リンク先も参考になりました。
--------------------------------

Controlsコレクションの使い方がミソなのですね。
今までコレクションの概念を使ったことがありませんでしたが、便利なのですね。
とても勉強になりました。
みきぬ様、IIJIMAS様、ありがとうございました。