VB6设置进度条颜色

VB6，新建一个工程，在界面中放置一个进度条控件，输入如下代码：

Option Explicit

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const PBM_SETBARCOLOR = &H409

Private Const PBM_SETBKCOLOR = &H2001

Private Sub Form_Load()

PostMessage ProgressBar1.hwnd, PBM_SETBARCOLOR, 0, vbRed

PostMessage ProgressBar1.hwnd, PBM_SETBKCOLOR, 0, vbGreen

ProgressBar1.Value = 30

End Sub