Change Event Example

This example displays the numeric setting of a horizontal scroll bar's Value property in a TextBox control. To try this example, create a form with a TextBox control and an HScrollBar control and then paste the code into the Declarations section of a form that contains a horizontal scroll bar (HScrollBar control) and a TextBox control. Press F5 and click the horizontal scroll bar.

Private Sub Form_Load ()
   HScroll1.Min = 0               ' Set Minimum.
   HScroll1.Max = 1000            ' Set Maximum.
   HScroll1.LargeChange = 100   ' Set LargeChange.
   HScroll1.SmallChange = 1      ' Set SmallChange.
End Sub

Private Sub HScroll1_Change ()
   Text1.Text = HScroll1.Value
End Sub