Mewarnai ProgressBar

Untuk mengganti warna dari kontrol ProgreesBar diperlukan cara khusus, karena tidak disediakan pengaturan warna di propertinya.

Buat sebuah Module dan ketikkan :

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

Untuk menggunakannya tinggal ketikkan kode berikut di 'Form_Load'.

SetPrgColor ProgressBar1, vbYellow, vbRed