Cara Membuat Animasi ProgressBar Pada Microsoft Visual Basic 6.0

Penggunaan kontrol ProgressBar akan membuat suatu program akan lebih menarik. Cara membuat animasi ProgressBar pada Microsoft Visual Basic 6.0 relatif sederhana. Disini kita menggunakan kontrol ProgressBar  dan Timer. Pertama kita buka lembar kerja baru. Kita dapat melihat pada Toolbox bahwa control ProgressBar belum muncul, karena secara default kontrol ProgressBar tidak Nampak pada Toolbox, untuk menampilkannya klik Menu Project => Components atau tekan tombol Ctrl dan huruf T (Ctrl + T) pada keyboard secara bersamaan. Maka akan tampil jendela Components seperti pada gambar berikut :

 

Kemudian beri tanda centang (tanda benar) pada Microsoft Windows Common Controls 6.0 (SP6) lalu klik Apply, lalu Close.

Sesudah

Sebelum

Selanjutnya kontrol pada pada Toolbox akan bertambah. Sebagai perbandingan, saya tampilkan gambar Toolbox sebelum dan sesudah  diberi tanda centang (tanda benar) pada Microsoft Windows Common Controls 6.0 (SP6) seperti pada gambar berikut :
 

Kemudian masukkan control ProgressBar dan timer seperti gambar berikut :

 

Kemudian ketik Listing Program berikut ini :

Option Explicit

Dim i As Integer

Private Sub Form_Load()

Me.Timer1.Interval = 100

End Sub

Private Sub Timer1_Timer()

 i = i + 10

    Me.ProgressBar1.Value = i

    If i = 100 Then

       Me.ProgressBar1.Value = i

       Timer1.Enabled = False

       End

    End If

End Sub

Apabila program dijalankan, hasilnya akan terlihat seperti pada gambar berikut ini :