Private Sub Command1_Click()If Text1.Text = "段正C#程序设计" ThenForm1.Caption = Text1.TextElseEnd IfEnd 凯神SubPrivate Sub 盯燃亏Command2_Click()Text1.Text = ""Form1.Caption = " "End Sub