Private Sub Command1_Click()
If Text1.Text = "cuong" And Text2.Text = "123" Then
MsgBox "ban da dang nhap thanh cong"
Form2.Show
Else
Text1.Text = " "
Text2.Text = " "
MsgBox " vui long nhap lai "
End If
End Sub
Private Sub Command2_Click()
Text1.Text = " "
Text2.Text = " "
Form1.Hide
End Sub
Không có nhận xét nào:
Đăng nhận xét