Thứ Năm, 6 tháng 6, 2013

code usename va password






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