VB做简单加密电视(语音)

为了不耽误时间 都是刚写的 新鲜的很啊

Private Sub Form_Load()
Dim a As String

Form1.Visible = False
a = InputBox("输入密码")
While a <> "123456"
a = InputBox("密码错误，请重新输入")
Wend
Form1.Visible = Trua

End Sub