Frame1.Height = 21000
Frame1.Width = Screen.Width - 1000
For i = 1 To 20
Load Label1(i)
Label1(i).Visible = True
Label1(i).Top = i * 1000
Label1(i).Caption = i
Next
End Sub
Private Sub VScroll1_Change()
Frame1.Top = VScroll1.Min - VScroll1.Value
End Sub