Problem with Slider

Option Explicit

Private Const mc_IdSlider As Long = 1000

Private Sub CommandBars1_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl)
   Select Case Control.Id
   Case mc_IdSlider
      ' Slider has been clicked or changed
      Debug.Print "Slider Value: " & Control.Pos
   End Select
End Sub

Private Sub Form_Load()
   Dim lo_Slider As CommandBarSlider
   
   With Me.CommandBars1
      Set lo_Slider = .CreateCommandBarControl("CXTPControlSlider")
      With lo_Slider
         .Id = mc_IdSlider ' Give the slider control a unique identifier
         
         ' Set slider range & position
         .Min = 0
         .Max = 100
         .Pos = 25   ' Set initial position/value of slider
      End With
      
      .Item(1).Controls.AddControl lo_Slider
   End With
End Sub

Option Explicit

Private Const mc_IdScroll As Long = 1000

Private Sub CommandBars1_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl)
   Select Case Control.Id
   Case mc_IdScroll
      ' Scroll has been clicked or changed
      Debug.Print "Scroll Value: " & Control.Pos
   End Select
End Sub

Private Sub Form_Load()
   Dim lo_Scroll As CommandBarScrollBar
   
   With Me.CommandBars1
      Set lo_Scroll = .CreateCommandBarControl("CXTPControlScrollBar")
      With lo_Scroll
         .Id = mc_IdScroll ' Give the Scroll control a unique identifier
         
         ' Set Scroll range & position
         .Min = 0
         .Max = 100
         .Pos = 25   ' Set initial position/value of Scroll
      End With
      
      .Item(1).Controls.AddControl lo_Scroll
   End With
End Sub