Italian Fermare animazione

[FreeWolF]

Ciao a tutti!

Vi chiedo un aiuto per un programmino molto semplice che sto facendo.

In pratica, utilizzando la libreria "animation", vorrei che il "Button1", una volta avviata l' applicazione, scendesse verso il basso e una volta lì si fermi.

Per ora ho scritto queste righe di codice:

Private Button1 As Button
Dim animazione As Animation

Activity.LoadLayout("Prova")

animazione.InitializeTranslate("animazione",0,0,0,300)
animazione.Duration = 4000
Button1.Text = "Prova"
animazione.Start(Button1)

L'animazione funziona senza problemi, ma una volta che termina, il Button1 torna al punto di partenza (cioè dove era collocato prima dell' animazione, verso l'alto). Io vorrei semplicemente che si fermi nel punto dove termina l'animazione ma non capisco come fare.

Mi potete dare una mano per cortesia?

Grazie mille in anticipo!!

 

[LucaMs]

Questo funziona:

animazione.InitializeTranslate("animazione",0,0,0,300dip)

Sub animazione_AnimationEnd
  Button1.Top = 300dip
End Sub

 

[LucaMs]

Ho trovato che c'è anche una libreria AnimationPlus, nella quale c'è una proprietà "PersistAfter" che ti consente la stessa cosa "automaticamente".

 

[FreeWolF]

Grazie mille!!!!

 

[LucaMs]

Grazie mille!!!!

Prego, novecentocinquanta (c'è la crisi )