membuat progress bar dengan vb 6

Tanpa bertele-tele, berbelit-belit, dan tanpa yg lainnya saya akan menjelaskan cara membuat progress bar sederhana dengan VB6.

• Buka Visual Basic 6.0, setelah itu pilih form standar.exe
• Pada properties form, ganti captionnya menjadi, Progress Bar
• Kemudian, klik kanan pada bagian kosong di toolbar general dan pilih components atau melalui menu Project -> Components, seperti ini :

• Pada tab components, pilih Microsoft Windows Common Controls 6.0 (SP6), kemudian klik Apply lalu OK.
• Selanjutnya masukkan, 1 buah progress bar dan 1 buah timer, seperti ini :

• Setelah itu klik 2 kali pada Timer1
• Lalu, masukkan ini :

Private Sub Timer1_Timer()

If ProgressBar1.Value = 100 Then

ProgressBar1.Value = 0

Else

ProgressBar1.Value = Val(ProgressBar1.Value) + Val(1)

End If

End Sub

• Setelah itu, close Form1Code tersebut, dan klik lg pd timer1.
• Ganti intervalnya menjadi 100
• Kemudian coba compile dengan menekan tombol play.
• Jika berhasil tampilannya seperti ini: