Membuat Persentase Menggunakan ProgressBar

Cara Membuat Persentase Menggunakan ProgressBar.
1. Buat 1 Project dan 1 Form
2. Tambahkan 1 ProgressBar dengan Max = 150
3. Tambahkan 1 Timer dengan Interval 100
4. Tambahkan 1 Label

Masukan Kode Berikut :

'Created By : Irham Musthofa Kamil
'Email : id.kamil@gmail.com
'http://situsvisualbasic.blogspot.com/

Private Sub Timer1_Timer()
On Error Resume Next
If ProgressBar1.Value >= 150 Then 'Maksimal Value Progressbar
ProgressBar1.Value = 0 'Value Progressbar kembali ke 0
Else
ProgressBar1.Value = ProgressBar1.Value + 1 'Value Progressbar + 1
End If
Label1.Caption = Round((ProgressBar1.Value / 150) * 100, 2) & "%" ' Label Persentase (%)
End Sub

Download Contoh