在单击事件中 先定义一个临时的字符变量 (str)
str=文本框的内容
文本框=标签的内容
标签=str
Private Sub Command1_Click()
Dim s$
s = Label1.Caption
Label1.Caption = Text1.Text
Text1.Text = s
End Sub
Private Sub Command1_Click()
Dim a As String
a = Label1.Caption
Label1.Caption = Text1.Text
Text1.Text = a
End Sub