Уважаемый программисты подскажите код прокрутки самой формы, пример кода приведенный раннее на форуме с forum.kodenet.ru вызывает у меня ошибку устранить я её ввиду своей неопытности пока не смог

big-duke,

это пример кода взятого с форума:
Option Explicit

Dim oldPos As Integer

Private Sub cmdQuit_Click()
Unload Me
End Sub

Private Sub Form_Load()
Dim iFullFormHeigth As Integer
Dim iDisplayHeight As Integer

iFullFormHeigth = 3765
iDisplayHeight = 1800

Me.Height = iDisplayHeight

With VScroll1
.Height = Me.ScaleHeight
.Min = 0
.Max = iFullFormHeigth - iDisplayHeight
.SmallChange = Screen.TwipsPerPixelY * 10
.LargeChange = .SmallChange
End With
End Sub


Private Sub pScrollForm()
Dim ctl As Control

For Each ctl In Me.Controls
If Not (TypeOf ctl Is VScrollBar) And _
Not (TypeOf ctl Is CommandButton) Then
ctl.Top = ctl.Top + oldPos - VScroll1.Value
End If
Next

oldPos = VScroll1.Value
End Sub

Private Sub VScroll1_Change()
Call pScrollForm
End Sub


Private Sub VScroll1_Scroll()
Call pScrollForm
End Sub

я его попытался приспособить под свою форму у меня там фрейм (на фрейме текстбоксы), лейблы , имаджи плюс полоса прокрутки , когда запускаю проект срабатывает дебаггер
с кодом ошибки ctl.Top = ctl.Top + oldPos - VScroll1.Value , по разному изощрялся ни как не выходит отловить причину, может подскажешь?

С уважением Дамир

bac,

Спасибо за код, вот только он прокручивает сам фрейм относительно формы это нормально но у меня кроме фрейма есть имажи на форме а они остаются на месте
потому что код затрагивает только сам фрейм , а располгать имажи на самом фрейме мне не желательно, поэтому пока не получилось

Frame1 я убрал совсем , теперь на форме у меня только имажи с лейблами

Спасибо всем за участие,

On Error Resume Next
и все заработало