简单的正确验证用户名密码后进入系统的VB代码

你先添加一个文本框名为text1 和一个命令按钮名为command1,
把文本框的passwordChar 属性值设为*
先默认密码为123，密码可以修改的
Private Sub Command1_Click()
Dim i As String
If Val(Text1.Text) = 123 Then
i = MsgBox("密码正确!进入系统!", 48, "验证结果")
Else
i = MsgBox("密码错误!无法进入!", 48, "验证结果")
End If
End Sub