Private Sub Command1_Click() '确定按钮的代码 Text1.Text = Command1.CaptionEnd SubPrivate Sub Command2_Click() ‘'清除按钮的代码 Text1.Text = ""End Sub
