arbip.blogspot.com

pertama buat form kosong seperti berikut











lalu klik 2 kali pada form vb

setelah itu tulis seperti berikut

Private Sub Form_Load()

1 pass = InputBox("arbi pramana", "password")
If pass = "password anda" Then
MsgBox "password benar, silakan masuk ke program menu", vbInformation
GoTo 10
Else
MsgBox " maaf password anda salah", vbCritical
GoTo 1
10 End If
End Sub

Logika program tersebut di maksudkan agar, saat program di jalan kan tepatnya pada form 1, akan box.

Jadi.. apabila inputbox di isi dengan “password anda” program akan menampilkan menu program Jika tidak, kembali ke menu inputbox.
Berikut tampilan saat di jalankan

jika salah











dan menampilkan messege box seperti berikut







dan kembali ke input box


jika benar





















dan akan masuk ke dalam form 1.