16,554
社区成员
发帖
与我相关
我的任务
分享
Imports System.Reflection
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim t As Type = Me.GetType
Dim f As FieldInfo = t.GetField("Label1", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.Public)
Dim mycontrol1 As Label = CType(f.GetValue(Me), Label)
mycontrol1.BackColor = Color.Blue
End Sub