test1.name要写在"load"之后以及各控件代码之前
text1.txt = wo
控件的name属性在运行的时候是只读的,不可改变,不用想了,呵呵。如果实在想这样做,可以变通,代码如下:Private Sub Command1_Click()Dim wo As Object Set wo = Text1 wo.Text = "已经改变,对不对?"End Sub