IF Text1.Text = “ “ Then
Text1.Setfocus
Else IF NOT Text1.Text = “Nama Depan Anda” Then
MsgBox “UserName Salah! “, vbxclamation
Text1.Setfocus
Text1 = “ “
Else
Text2.Setfocus
IF Text2.Text = “ “ Then
Text2. Setfocus
Else IF NOT Text2.Text = “Nama Belakang Anda” Then
MsgBox “Password Salah! “, vbexclamation
Text2.Setfocus
Text2 = “ “
Else
Form2.show
Unload Me
End IF
End Sub
Tidak ada komentar:
Posting Komentar