Скроллинг

[MaryM]

У меня на форме создаются автоматически UserControlы. Число их может быть любым. Я хочу, чтобы их можно было бы прокручивать и посмотреть все, если не помещаются. Я засунула их в Frame1. Как сделать так, чтобы прокрутка работала?

[Vitaly1]

Вот тебе код одной из линеек прокрутки, которая справа от Frame1

Код: Выделить всё

Private Sub ScrollBar1_Change()
Frame1.Top = -ScrollBar1.Value
End Sub

Private Sub UserForm_Activate()
ScrollBar1.Min = 0
ScrollBar1.Max = Frame1.Height - ScrollBar1.Height
End Sub