MsgBox "你是合法用户，欢迎进入" Form2.Show Form1.Hide Else MsgBox "用户名或密码错误" Text1.Text = "" Text2.Text = "" End If End If End Sub