Private Sub Form_Load()
Dim i As Integer

'// Adderar 100 rader med text som placeras i listboxen
For i = 1 To 100
List1.AddItem CStr(i) & " Massor av löv på vägen är inte bra om man kör bil."
Next i

'// Känner av den sista posten, eftersom den borde vara störst (99).
SetHScroll Me, List1, List1.List(99)
Me.Refresh
End Sub