Suponiendo que tienes todos tus controles en un Picture llamado picForm, con el VScroll sería:
Código:
Private Sub Form_Resize()
VScroll1.Min = 0
VScroll1.Max = (picForm.Height - Me.ScaleHeight) / Screen.TwipsPerPixelY
VScroll1.Visible = (VScroll1.Max > 0)
End Sub
Private Sub VScroll1_Change()
picForm.Top = -(VScroll1.Value * Screen.TwipsPerPixelY)
End Sub
Private Sub VScroll1_Scroll()
picForm.Top = -(VScroll1.Value * Screen.TwipsPerPixelY)
End Sub
Saludos
