Option Explicit

Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40

Private WithEvents mobjPBar As MSComctlLib.ProgressBar

Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Private Declare Function GetParent Lib "User32" (ByVal hWnd As Long) As Long
Private Declare Function MoveWindow Lib "User32" (ByVal hWnd As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Sub CommandButton1_Click1()
    Const cBarName = "ProgressBar"
    Const msoControlActiveX = 22
    Const msoBarNoChangeDock = 16
    Const msoBarTop = 1
    Dim objCmb5 As CommandBar, objCmbAXCtl5 As [_CommandBarActiveX]
    Dim objCmb As Object, objCmbAXCtl As Object, objCmb1 As Object, objCmb2 As Object
    
    On Error Resume Next: Application.CommandBars(cBarName).Delete: On Error GoTo 0

    Set objCmb = Application.CommandBars.Add(cBarName, msoBarTop, , True)
    objCmb.Visible = True
    'objCmb.Protection = msoBarNoChangeDock
    Set objCmb1 = objCmb.Controls.Add(msoControlButton)
    Set objCmb2 = objCmb.Controls.Add(msoControlEdit)
    objCmb2.Text = "Hello"
    Set objCmbAXCtl5 = objCmb.Controls.Add(msoControlActiveX)
    With objCmbAXCtl5
        .Height = 24
        .Width = 1250
        .ControlCLSID = "{35053A22-8589-11D1-B16A-00C0F0283628}"  'Microsoft ProgressBar Control, version 6.0
        .EnsureControl
        Set mobjPBar = .QueryControlInterface("{00020400-0000-0000-C000-000000000046}")
        mobjPBar.Orientation = ccOrientationHorizontal
        MoveWindow GetParent(mobjPBar.hWnd), 0, 0, 0, 24, 1
    End With
    With mobjPBar
        .Max = 100
        .BorderStyle = ccFixedSingle
        .Appearance = cc3D
    End With
    objCmb.Visible = True[SRC VB]