Memberi warna pada ProgressBar

Private Declare Function SendNotifyMessage Lib "user32.dll" Alias "SendNotifyMessageA" (ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Sub SetPrgColor(Prg As ProgressBar, ForeColor As OLE_COLOR, BackColor As OLE_COLOR)
SendNotifyMessage Prg.hwnd, (&H400 + 9), 0, ForeColor
SendNotifyMessage Prg.hwnd, (&H2000 + 1), 0, BackColor
End Sub

SetPrgColor ProgressBar1, vbYellow, vbRed