Membuat Progressbar Pada VB 6.0

1. pada toolbox.,pilih icon progressbar kemudian pindahkan kedalam form

2. tambahkan object Command Button, atur propertiesnya :
   Name    : CmdTest
   Caption  : &Test

3.  tambahkan object Timer kedalam form, beri interval 100 pada propertiesnya

4. klik 2x pada object Timer, tambahkan listing berikut :
   Private Sub Timer1_Timer()
     ProgressBar1.Value = ProgressBar1.Value + 2
     If ProgressBar1.Value = ProgressBar1.Max Then
       Timer1.Enabled = False
       Unload Me
     End If
   End Sub

   Arti dari listing diatas adalah kita memberikan nilai pada object progressbar
   kemudian menambahkan nilai awal yg diberikan dengan kelipatan 2.
   jika nilai progressbar sama dengan nilai maks maka program akan keluar.

5. klik 2x pada area form yg kosong, tambahkan listing dibawah ini :
   Private Sub Form_Load()
     Timer1.Enabled = False
   End Sub

   <menonaktifkan fungsi Timer1 dengan memberikan nilai false>

6. klik 2x pada object command button (tombol Test), tambahkan listing berikut :
     Private Sub CmdTest_Click()
       Timer1.Enabled = True
     End Sub

   <mengaktifkan kembali fungsi Timer1 dengan memberikan nilai true>

7. jalankan program dengan menekan tombol F5 pada keyboard, atau start
     pada toolbar. Kemudian klik tombol Test..