Private Declare Function SendMessage Lib "user32" Alias _
        "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As _
        Long, ByVal wParam As Long, ByVal lParam As Long) _
        As Long
 
Const PBM_SETBARCOLOR = &H409
 
Private Sub SetProgressBarColor(ByVal hwnd As Long, ByVal nChangecolor As Long)
   Dim RVal As Long
   RVal = SendMessage(hwnd, PBM_SETBARCOLOR, 0&, nChangecolor)
End Sub
 
 
Private Sub Form_Activate()
   For i = 1 To 100
      ProgressBar1.Value = i
      If i = 50 Then SetProgressBarColor ProgressBar1.hwnd, Form1.ForeColor
   Next
End Sub