Memberikan Pasword Login Di Visual Basic 6.0

1. Buka aplikasi VB 6 > Standard exe

2. Masukan Coding Berikut Di form1 ( Private sub form_load() )

Private Sub Form_Load()
pass = InputBox("masukkan password", "Password")
If pass = "harisganteng" Then
msg = MsgBox("Okeh Anda Keren Boleh Memakai Aplikasi", vbOKOnly, "ANda Keren")
Else
msg = MsgBox("Anda Jelek Gak boleh emakai Aplikasi", vbCritical, "Anda Jelek")
Unload Me
End If
End Sub

Penjelasan Coding :  

( Coding ini untuk meminta password pada user, bila salah masukan pasword makan akan muncul pesan, dan bila salah maka akan muncul pesan dan di sertai keluar otomastis )

 3. Hasil Output Progam ketika di jalankan

Dan jika Benar Password yang di masukan :

Progam di atas adalah menggunakan Kondisi IF....THEN

Keterangan :

Bentuk penulisan (syntax) struktur IF…THEN :

1.   IF <kondisi> THEN <kode program>
     Bila <kondisi> bernilai True maka <kode program> akan dikerjakan.

2.   IF <kondisi> THEN
         <blok kode program 1>
     ELSE
         <blok kode program 2>
     END IF

     Bila <kondisi> bernilai True maka <blok kode program 1> akan dikerjakan, tetapi bila <kondisi>
     bernilai False maka <blok kode program 2> yang akan dikerjakan.