Ребята подскажите как в Visual Basic 6,0

Question

сделать так, что бы при протяжке скролла изменялось значение в текстовом поле например от 100 до 5000

Олег · Accepted Answer

Public Class Form1 
 
 Private Sub HScrollBar1_Scroll(sender As Object, e As ScrollEventArgs) Handles HScrollBar1.Scroll 
 TextBox1.Text = HScrollBar1.Value 
 End Sub 
 
 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
 HScrollBar1.Maximum = 5000 
 HScrollBar1.Minimum = 100 
 End Sub 
End Class 
 
VB 2012, Проверил, работает