用户验证

Private Sub Command1_Click()
    Dim i As Integer
    If txtYhm.Text = "qwerty" And txtMm.Text = "asdfgh" Then
        MsgBox "输入正确", vbInformation, "密码"
    Else
        i = MsgBox("亲~用户名、密码不匹配!请重新输入", vbRetryCancel + vbInformain, "输入密码")
        If i <> 4 Then
            End
        Else
            txtMm.Text = ""
            txtYhm.SetFocus
        End If
    End If
End Sub

Private Sub Command2_Click()
    txtYhm.Text = ""
    txtMm.Text = ""
    txtYhm.SetFocus
    
End Sub

Private Sub Command3_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    txtYhm = ""
    txtMm = ""
End Sub

Private Sub Text3_Change()
    If Not IsNumeric(txtMm) Then
        MsgBox "密码错误", vbExclamation, "输入密码"
        txtMm.Text = ""
        txtMm.SetFocus
    End If
    
End Sub