Private Sub Form_Load() VScroll1.Min = 0 VScroll1.Max = Me.Height For Each cc In Controls cc.Tag = cc.Top Next End Sub Private Sub VScroll1_Change() Dim cc As Control For Each cc In Controls If Left(cc.Name, 2) <> "VS" Then cc.Top = cc.Tag - VScroll1.Value Next End Sub