Private Sub Command1_Click()If txtUser.Text = "admin" And txtPass.Text = "888" Then MsgBox "Y"Else MsgBox "X"End IfEnd Sub