Private Sub Command1_Click()
Form1.Caption = "欢迎界面"
Label1.Caption = "欢迎使用本程序！"
Label2.Caption = "请输入用户名！"
Text1.Text = ""
End Sub

Private Sub Command2_Click()
End
End Sub