StatusBar - Отображение ProgressBar

Private Sub PGInStatusBarTest()
'ProgressBar in StatusBar
'More info: https://www.codevba.com/fragments/Access_StatusBar.htm#.Yy_eLExBxrw
'---------------------------------------------------------------------------------------------------
    DoCmd.Hourglass True 'True (1) to display the hourglass icon

'Очистка Status Bar
'Clearing the Status Bar
    SysCmd acSysCmdClearStatus

'Задание заголовка и масштаба (100 ед. = 100%)
'Title and scale assignment (100 units = 100%)
    SysCmd acSysCmdInitMeter, "Произвожу копирование файлов ...", 100
    SysCmd acSysCmdInitMeter, "Copying files ...", 100

'Установка ProgressBar на 20 %
'Setting the ProgressBar to 20%
    SysCmd acSysCmdUpdateMeter, 1
    '... некие действия ...
    '... some actions ...
    SysCmd acSysCmdUpdateMeter, 20
    '... некие действия ...
    '... some actions ...

'Установка ProgressBar на 40 % и т.д.
'Setting Progress Bar to 40%, etc.
    SysCmd acSysCmdUpdateMeter, 40
    '... некие действия ...
    '... some actions ...
    
    SysCmd acSysCmdUpdateMeter, 60
    '... некие действия ...
    '... some actions ...
    
    SysCmd acSysCmdUpdateMeter, 80
    '... некие действия ...
    '... some actions ...
    
    SysCmd acSysCmdUpdateMeter, 100

    MsgBox "Готово!", vbInformation, "Progress Bar in Status Bar"
    MsgBox "Outstanding directory Copied Successfully", _
        vbInformation, "Progress Bar in Status Bar"

'Очистка
'Clearing the Status Bar
    SysCmd acSysCmdClearStatus
    DoCmd.Hourglass False 'False (0) to display the normal mouse pointer

End Sub