Visual Basic 6 mempunyai kontrol ProgresBar, biasanya kontrol ini di pakai untuk program pada waktu looding atau  antar muka program  start biar program kelihatan keren. Terus bagaimana cara menggunakan progresbar tersebut, dibawah ini kami akan memberikan langkah langkah cara menjalankan ProgresBar.
  • Jalankan Program VB6

  • Klik kanan Mouse pada ToolBox sebelah Kiri program vb6 untuk menambahkan komponen Microsoft Windows       Common Controls 6.0 (SP6)


  •  Pada toolbox pilih icon progressbar kemudian pindahkan kedalam form
  • Tambahkan object  Timer, Label  , untuk properti timer beri nilai intervalnya 100

  • Masuk Ke VewCode
Isi dengan coding program di bawah ini
Private Sub Timer1_Timer()
If ProgressBar1.Value = 100 Then
        ProgressBar1.Value = 0
Else
    Label3.Caption = ""
    ProgressBar1.Value = Val(ProgressBar1.Value) + Val(1)
End If
Label1 = ProgressBar1.Value  & "%"
End Sub

          
  • Lalu Jalankan


               Semoga Bermanfaat.....