Pada artikel sebelumnya penulis membuat tutorial cara instalsasi eclipse,Pada kesempatan ini saya membuat cara instal vb 6 berhubung lagi dapat project vb 6 hehe

Pertama PC atau laptop anda sudah ada vb 6 kalau belum silahkan download disini
download vb 6

Pertama adalah Buka CD VB 6.0 anda, atau Jika anda Download Aplikasi VB 6.0 dari Internet maka anda harus Extrak dulu File VB 6.0.
Cari file Setup.exe

Double Klik FIle Setup.exe
Maka Akan Muncul Gambar dibawah :

Klik Run Program

Klik Next

Checklist - I Accept the agreement
Klik Next

Masukan ID Number atau seing disebut SERIAL NUMBER
Klik Next

Klik Next

Klik Next

Klik Run Program

Klik Continue

Klik OK

Klik Typical
Tunggu Proses sedang berjalan 

Klik Restart Windows
Setelah Restart Komputer, jika muncul POP UP windows, Klik RUn Programs

Klik Next
Klik Yes

Klik Next

Klik Next
Klik Finish done

pada artikel sebelumnya saya juga sharing tentang pembuatan from login sederhana menggunakan vb 6 .smemoga bermanfaat 

MEMBUAT FORM LOGIN DENGAN MENGGUNAKAN VB 6

Berikut Langkah-langkah Membuat Form Login vb 6:

Untuk membuat Form Login, anda harus membuat Form Baru,
Caranya anda Klik Project - Add Form

1. Ubah nama form Menjadi : FormLogin
2. Caption : Form Login

Buat Design Form Seperti dibawah ini :

Masukan Coding dibawah ini :

Private Sub CmdCancel_Click()
Unload Me
End Sub
Private Sub Form_Activate()
Text2.Enabled = False
End Sub
Sub Form_Load()
    Call BukaDB
    Text1.MaxLength = 6
    Text2.MaxLength = 10
    Text2.PasswordChar = "X"
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    If KeyAscii = 13 Then
        Call BukaDB
        Call CariData
                If RSAdmin.EOF Then
                    MsgBox "Admin Tidak Terdeteksi, Coba lagi"
                    Text1 = ""
                Else
                Text1.Enabled = False
                Text2.Enabled = True
                Text2.SetFocus
                End If
    End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    If KeyAscii = 13 Then
        CmdLogin.SetFocus
    End If
End Sub
Function CariData()
    Call BukaDB
    RSAdmin.Open "Select * From Admin where kodeAdmin='" & Text1 & "'", koneksi
End Function
Private Sub CmdLogin_Click()
Dim KodeAdmin As String
Dim NamaAdmin As String
Call BukaDB
        RSAdmin.Open "Select * from Admin where kodeAdmin ='" & Text1 & "' and passwordAdmin='" & Text2 & "'", koneksi
        If RSAdmin.EOF Then
            MsgBox "Password Salah, Coba Lagi!"
            Text2 = ""
            Text2.SetFocus
        Else
            Unload Me
            FormMenuUtama.Show
        End If
End Sub

Catatan :
Jangan Lupa pada Form Menu Utama ketika pada menu editor klik Login, anda harus memasukan koding

FormLogin.Show

Klik Run atau F5
Setelah FormMenuUtama show, Silahkan ke File dan Klik Login
Masukan Kode Admin : ADM001 (Kemudian Tekan ENTER)
Password Admin (Kemudian Tekan ENTER)