moving button on scroll bar

How do I write code to move the button on a horizontal scroll bar?

VB Code:

HScroll1.Value = HScroll1.Max / 3

Set the MAX property to a smaller number, and you should see the tab moving when you click one of the arrows.