用frame1做的事例
【窗体添加frame1,vscroll1,在frame1上面添加label1(0)】
Private Sub Form_Load()
VScroll1.Min = 10000
VScroll1.Max = 21000 '
VScroll1.Value = 10000
VScroll1.SmallChange = 1000
VScroll1.LargeChange = 1000
VScroll1.Top = 100
VScroll1.Left = Screen.Width - 500
VScroll1.Height = Screen.Height - 1000
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