Как изменить цвет ProgressBar?

[ Обновленные темы · Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1 1
Модератор форума: server2009, Сергей

Сергей

Дата: Понедельник, 31.08.2009, 13:03 | Сообщение # 1

Лейтенант

Группа: Модераторы

Сообщений: 43

Репутация: 1

Статус: Offline

Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Form_Load()
ProgressBar1.Max = 100
ProgressBar1.Value = 50
Call SendMessage(ProgressBar1.hwnd, &H409, 0, ByVal vbRed)
Call SendMessage(ProgressBar1.hwnd, &H2001, 0, ByVal vbBlack)
End Sub

Как изменить цвет ProgressBar?

Страница 1 из 1
1