Ciao a tutti
Ho un form con dentro degli oggeti e un timer...
Ne form ho una barra di scorrimento verticale, perche ho una lista di oggetti e senza barra non li vedo tutti... quando clicco sopra la barra di scorrimento mi conpare il seguente errore: "Impossibile leggere la proprietà 'Top' in fase di esecuzione"... (errore run-time 393)
ho provato a cancellare il timer e funziona...

questo è il codice che gestisce la barra di scorrimento:
Private Sub Form_Load()

TotAltForm = Me.Height '3765
TotVisualizza = Me.VScroll1.Height ' 1900

Me.Height = TotVisualizza

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

End Sub

Private Sub ScrollForm()
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 ScrollForm
End Sub


Private Sub VScroll1_Scroll()
Call ScrollForm
End Sub

il problema secondo me è proprio il timer, ho provato a cancellarlo e la barra funziona, però anche se lo metto con interval 0 e disable, lui si blocca lo stesso



Grazie