Buongiorno a tutti

Ho inserito in un Form una scroll e tutto funzionava alla perfezione, sino a che non ho deciso di inserire una tolbar:
Inserita la tolbar, con pulsanti etc. tutto funziona ma come inserisco nel form un controllo ImageList oppure un CommonDialog e vado in esecusione mi da l'errore " Impossibile leggere la proprietà Top in fase di esecuzione.
Se li tolgo tutto ritorna a funzionare. Mi sapete dire dove sbaglio e fornirmi un esempio?
Vi allego il listato del codice che uso.
Grazie in anticipo a chi mi aiuta

Option Explicit
Dim Pos As Integer
Dim AltForm As Integer
Dim Visualizza As Integer

Private Sub ScrollForm()
Dim Con As Control

For Each Con In Me.Controls
If Not (TypeOf Con Is VScrollBar) Then
Con.Top = Con.Top + Pos - VScroll1.Value
End If
Next

Pos = VScroll1.Value

End Sub

Private Sub Form_Load()

AltForm = Me.Height
Visualizza = Me.VScroll1.Height
Me.Height = Visualizza

With VScroll1
.Height = Me.ScaleHeight
.Min = 0
.Max = AltForm - Visualizza
.SmallChange = Screen.TwipsPerPixelY * 10
.LargeChange = .SmallChange
End With

End Sub

Private Sub VScroll1_Change()
Call ScrollForm
End Sub

Private Sub VScroll1_Scroll()
Call ScrollForm
End Sub