Visual Basic 6 - spostare varie label

Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 2000
lbl1(A(I)).Top = lbl1(A(I)).Top + 100
lbl1(A(I)).Left = lbl1(A(I)).Left + 100
End Sub

l'ho scritto ma nn viene nn mi si sposta!!

Trovo la richiesta poco chiara ma se ho capito bene tu vorresti spostare delle label verso l'alto o il basso del form? Per farlo basta lavorare sulla proprietà Top (Altezza verticale, lo zero corrisponde al bordo superiore del form) e Left ("Altezza" orizzontale, lo zero corrisponde al bordo sinistro del form) della label che vuoi spostare. Puoi sia incrementare il valore da codice di un certo valore se vuoi simulare, ad esempio, un movimento scrivendo

label(indicelabel).top=label(indicelabel).top+50
label(indicelabel).left=label(indicelabel).left+50

oppure scrivendo direttamente il valore che ti interessa con una semplice assegnazione. Per trovare il numero preciso delle cordinate in cui vuoi far arrivare la label che ti interessa ti consiglio di spostarla effettivamente in quel punto e poi leggere il valore delle proprietà Top e Left nella finestra delle proprietà di Visual Basic, poi la rimetti apposto e gli assegni quei 2 valori da codice.

Spero di essermi spiegato (e di aver capito correttamente la tua richiesta), per qualsiasi chiarimenti dimmi pure^^.