Private Sub Command1_CLick()
End
End Sub
Private Sub Command2_CLick()
x = MsgBox("你确定要退出吗?", vbYesNo, "提示")
If x = vbYes Then
End
End If
End Sub
Private Sub Command3_Click()
End
End Sub
End
Private Sub Form_Load()
Me.Caption = "请输入用户名和密码"
Command1.Caption = "确定"
Command2.Caption = "退出"
Command3.Caption = "注册新用户"
Command4.Caption = "修改密码"
Label1.Caption = "用户名"
Label2.Caption = "密码"
Text1.Text = ""
Text2.Text = ""
End Sub