Scrollbar

Eksempelvis:

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

/webcon

Hejsa !
Jeg fandt en anden måde at gøre det på, men helt retfærdigvis skal du da have dine point :)

Tak for hjælpen anyway :)