用户名密码验证程序

Option Explicit
Dim name1 As String
Dim password As String

Private Sub cmdquit_Click()
End
End Sub

Private Sub cmdsure_Click()
name1 = "1"
password = "1"
If txtname.Text = name1 And txtpass.Text = password Then
MsgBox "Óû§ÃûÃÜÂëÕýÈ·"
Else
MsgBox "Óû§ÃûÃÜÂë´íÎó"
End If
End Sub

Private Sub txtname_Change()
cmdsure.Enabled = True
End Sub

Private Sub txtname_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 40 Then
txtpass.SetFocus
End If
End Sub

Private Sub txtpass_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 38 Then
txtname.SetFocus
End If
End Sub