Rem 文本内容互换
Private Sub Command3_Click()
   WZ = Text1.Text           '将Text1文本框中内容赋给变量WZ
   Text1.Text = Text2.Text   '将Text2文本框中内容赋给Text1文本框
   Text2.Text = WZ  '将WZ内容（原Text1文本框内容）赋给Text4文本框
End Sub


在其他地方都没有定义,但是编译运行都不报错!
是不是将Text1.Text 的类型默认给变量WZ了哟,我的猜测!
谢谢!

在今后学习过程中谢谢大家的帮助,很乐意将自己知道的问题与大家共同探讨,共同提高!