pesan = MsgBox(" Anda yakin mau keluar ??", vbQuestion + vbYesNo, "Question")
If pesan = nvYes Then
End

Else
Forml.SetFocus
End If
User = username
Password = pass

If User = "edwin" And Password = "123" Then
MsgBox "Selamat Datang"
Form2.Show
Foerm1.Hide

Else

login = login + 1
MsgBox "Anda salah memasukan pasword " & login & " kali "
If login = 2 Then

MsgBox "Kesempatan Anda 1 kali lagi", vbExclamation

End If

If login = 3 Then
MsgBox "Anda Salah memasukan Password 3 kali, maka program ini akan kami tutup"
vbCritical

End
End If
End If

End Sub