Const PBM_SETBARCOLOR =&H409
Сообщение PBM_SETBARCOLOR устанавливает цвет индикаторной полоски в индикаторе прогресса
Сообщение PBM_SETBARCOLOR возвращает предыдущий цвет индикаторной полоски или CLR_DEFAULT, если используетая цвет по умолчанию
Const CLR_DEFAULT = &HFF000000
' Присвоим индикаторной полоске зелёный цвет Static cnt As Long Call SendMessage(ProgressBar1.hwnd, PBM_SETBARCOLOR, 0&, ByVal vbGreen) ' Запускаем индикатор прогресса For cnt = 1 To ProgressBar1.Max ProgressBar1.Value = cnt ' На всякий случай, для отмены операции DoEvents Next