[VB] Membuat ProgressBar Bolak-Balik

Deklarasi:
1 Form
1 ProgressBar
1 Timer

Source Code:

Private Sub Timer1_Timer()
Static Move As Boolean
Dim valMin, valMax As Integer
valMax = 100: valMin = 0
If Move Then
   ProgressBar1.Value = ProgressBar1.Value + 1
   Move = True
   If ProgressBar1.Value = valMax Then Move = False
Else
   If ProgressBar1.Value > valMin Then ProgressBar1.Value = ProgressBar1.Value - 1
   Move = bolNo
   If ProgressBar1.Value <= valMin Then Move = True 
End If 
End Sub 

Jangan Lupa Komentar Yaa..