Sposta oggetto

[stegtw]

Buon giorno a tutti.
Mi servirebbe, abbastanza urgentemente (se possibile) il codice per fare in modo che un oggetto che ho nel form venga progressivamente spostato in basso a destra. So che questa cosa è gestibile con un timer (o almeno quando io l'avevo programmato in precedenza mi ero servito di un timer), però non mi ricordo più la sintassi.
In breve: un oggetto che sta alle coordinate (Top 0, Left 0) vorrei che arrivasse progressivamente e non in un colpo solo alle coordinate (Top 100, Left 100)
Vi ringrazio anticipatamente per aver letto questo post. Grazie. Ciao

[tas]

Questo codice non l'ho provato ma dovrebbe andare, Timer1 deve avere in design-time la proprietà Enabled = False, mentre la proprietà Interval la imposti secondo i tuoi gusti.

'nelle dichiarazioni del form:
Private cx As Single
Private cy As Single

Private Sub Command1.Click()
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    If cx < 100 And cy < 100 Then
        cx = cx + 1
        cy = cy + 1
        obj.Move cx, cy
    Else
        Timer1.Enabled = False
        cx = 0
        cy = 0
    End If
End Sub

[stegtw]

Sei superlativo!!! Grazie infinite! Ciao

[stegtw]

Scusa se ri-rompo! E se volessi spostarlo soltanto verticalmente??? Grazie.

[tas]

Lasci cx = 0