Private Sub VScroll1_Change()Text1.Text = VScroll1.ValueEnd Sub
Private Sub Form_Load()For i = 1 To 1000List1.AddItem iNextEnd Sub