Dim newTest As New Button
Dim strAttributeName As String '方法名字
Dim args As Object
Dim myType As Type = GetType(Button)
Dim myPropertyInfo As PropertyInfo = myType.GetProperty(strAttributeName)
Dim myMethodInfo As MethodInfo = myPropertyInfo.GetSetMethod()
myMethodInfo.Invoke(newTest, New Object() {args})