[VB6] Inserimento Scroll e ToolBar in un Form

[Pepe27]

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

[Grumpy]

Dovresti segnalare, oltre al testo dell'errore stesso, anche in quale riga di codice lo ricevi. Inoltre dovresti racchiudere il codice che posti tra gli appositi tag, in modo da facilitarne la lettura.

Venendo al tuo problema, mi sembra che la causa sia abbastanza chiara: tenti di impostare la proprietà Top per dei controlli che non espongono questa proprietà (la CommonDialog e l'ImageList appunto. Questo, come è ovvio, avviene all'interno del ciclo For Each...Next. Se all'interno di questo ciclo c'è un test per escludere la ScrollBar (l'hai visto, vero?), come può non venirti in mente di escludere anche gli altri tipi di controllo che, essendo invisibili, non hanno la proprietà Top?

[Pepe27]

Credo di passare troppo tempo a questo pc, certo che sono fuso e non ci ho pensato lontanamente.... Vero è che prima avevo inserito nel ciclo diversa cosa come frame e commandbuton poi ho tolto tutto per inserire pulsanti nella toolbar e ....sono cotto.
Per ora chiudo e domani provo poi ti faccio sapere.
Grazie

[Pepe27]

Funziona tutto, non so perchè ma non lo avevvo prorpio nemmeno pensato, forse perchè partivo dall'idea che essendo già invisibili.......
Grazie ancora
Ciao

[yyzyyz]

il controllo VScroll non gestisce la rotellina per lo scroll del mouse , come si puo fare ?