Const PBM_SETPOS = WM_USER + 2
Сообщение PBM_SETPOS устанавливает текущую позицию индикаторной полоски в индикаторе прогресса
Сообщение PBM_SETPOS возвращает предыдущую позицию
' Установим некоторое значение для индикатора прогресса InitCommonControls mWnd = CreateWindowEx(0, "msctls_progress32", "Russian_Project Progress Control", WS_VISIBLE Or WS_CHILD, 0, 0, 300, 50, Me.hwnd, ByVal 0&, ByVal 0&, ByVal 0&) ' Устанавливаем текущее значение в 20 единиц SendMessage mWnd, PBM_SETPOS, 20, ByVal 0