Tip & Trik Progress Bar Gradasi Warna

Kalau progress bar yang biasa berwarna mengikuti theme dari Windows, kali ini ada trik untuk membuat progress bar yang berwarna gradasi.Tempatkan sebuah command button dan sebuah label dengan caption biarkan kosong.
Private Sub Command1_Click()
Me.Caption = "Sedang Proses. Silakan tunggu..."
x = Me.ScaleLeft + 200
y = Me.ScaleTop + 500
r = 0
g = 0
B = 0
redgrad = 200 / 1700
greengrad = (70 / 1700)
bluegrad = (125 / 1700)
newcolor = &H8000000D
Me.Line (x - 15, y - 15)-(x + 2515, y + 210), black, B
stopl = True
For i = 0 To 2500
Label1.Caption = Int((i / 2500 * 100)) & " % Compeleted"
Label1.Refresh
newcolor = RGB(240 + redgrad * i, 120 + greengrad * i, 120 + redgrad * i)
Me.Line (x, y)-(x, y + 200), newcolor
x = x + 1
Next i
Me.Caption = "Progress Compeleted"
End Sub