UpDown Yerine ScrollBar Kullanmak

ScrollBar’ın kaydırma düğmesi kayboluncaya kadar küçültülür. Max ve Min değerleri ayarlanır.

Private Sub VScroll1_Change()
Text1.Text = VScroll1.Value * -1
End Sub