textbox 控件类型 文本框Dim child As ObjectSet child = Text1If TypeOf child Is TextBox ThenSet child = Check1End Ifchild.Caption = "变了"
