[初学VB.net]如何通过控件的名称来控制控件

     Imports System.Reflection

   Dim i As Integer
        Dim namestr As String
        For i = 0 To dataset_system.Tables("Company").Columns.Count - 1
            namestr = ""
            namestr = "Txt_Company_" & dataset_system.Tables("Company").Columns.Item(i).Caption
            Dim t As Type = Me.GetType
            Dim f As FieldInfo = t.GetField("_" & namestr, BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.Public)
            If dataset_system.Tables("Company").Columns.Item(i).Caption = "国际社" Then
                Dim MyControl As CheckBox = CType(f.GetValue(Me), CheckBox)
                MyControl.Enabled = chg
            Else
                Dim MyControl As TextBox = CType(f.GetValue(Me), TextBox)
                MyControl.Enabled = chg