Scroll bar with text box

[art]

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.

 

[dbKemp]

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

 

[art]

Thanks, but then it does not show up when I scroll by pressing the up and
down arrows, it only shows up when I drag the bar up and down. Is it possible
to have both?

 

[dbKemp]

Thanks, but then it does not show up when I scroll by pressing the up and
down arrows, it only shows up when I drag the bar up and down. Is it possible
to have both?

Always have the label visible and update the value in the ScrollBar
change event. Remove the lblValue.Visible=False in change event.