On Nov 9, 2:08*am, art wrote:
Hello:

I would like to make a scroll bar that while dragging the bar up or down a
small text box should appear and display which value the scroll bar is?

Is it possible?

Thanks.

This works for me on a UserForm.
Add a label that is positioned over the scrollbar. Set it's visible
property to false. Call it lblValue.

In the ScrollBar Scroll event:
Private Sub ScrollBar1_Scroll()
With Me.lblValue
.ZOrder (0)
.Caption = ScrollBar1.value
.Visible = True
End With
End Sub

In the ScrollBar ChangeEvent:
Private Sub ScrollBar1_Change()
Me.lblValue.Visible=False
End Sub