Private Sub Command1_Click()
Text1.Text = "向人民警察致敬!"
Print "人民警察为人民!"
End Sub
Private Sub Command2_Click()
Text1.Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
Command1.Caption = "显示"
Command2.Caption = "清除"
Command3.Caption = "退出"
End Sub