aiuto timer in vb.net

[xyzsurf]

Salve a tutti.
Vorrei rifarmi alla vostra esperienza per un problemino credo semplice ai molti esperti in vb.net 2010 ...
devo animare una pallina ... ho creato le 4 immagini con le rotazioni ciascuna di 90 gradi. Le ho importate nelle risorse(a proposito ma come si elima un file dalle risorse?). Ad ogni tot di tempo devo cambiare immagine e spostare la posizione della stessa(per l'appunto un animazione).
Con un ciclo for next l'animazione è esageratamente veloce e non si vede nulla.
Con un timer va bene, ma non riesco a richiamarlo da un altra sub.

In realtà non so usare il timer e mi chiedo cosa devo utilizzare per far scorrere un immagina che cambia da un punto all'altro dello schermo sulla stessa riga.

Se qualcuno può aitarmi, sperando di essermi spiegato.
By

[Jeremy75]

Ciao Aniello.
Prova con questo codice:

 Private tmr As Timer
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        tmr = New Timer
        AddHandler tmr.Tick, AddressOf tmr_tick
        tmr.Interval = 1000
        tmr.Enabled = True
        tmr.Start()
    End Sub

    Private Sub tmr_tick(sender As Object, e As EventArgs)
        'TODO: Codice di getione delle palline
    End Sub

Facci sapere....
Ciao

[xyzsurf]

si funziona ma non è il massimo per risolvere il mio problema. Mi spiego meglio: in realtà non capisco perchè non esistano istruzioni per creare e muovere sprite in vb. Mi sa che non le conosco io ...
PERO' VISTA LA TUA PREPARAZIONE ti chiedo l'aiuto sul timer:

desidero utilizzare un timer per impostare un ritardo nell'esecuzione di una qualsiasi attività o comunque per eseguire qualcosa ad un intervallo preciso.

Inserisco un controllo timer. Come faccio a richiamarlo? nel senso COME FACCIO AD INVOCARE L'EVENTO DEL TIMER da una qualunque sub? sono un asino vero?

[Jeremy75]

Private tmr As Timer
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        tmr = New Timer
        AddHandler tmr.Tick, AddressOf tmr_tick
    End Sub

    Private Sub tmr_tick(sender As Object, e As EventArgs)
        'TODO: Codice di getione delle palline
    End Sub

Private sub Bt_Click() handles button1.click
        tmr.Interval = 1000
        tmr.Enabled = True
        tmr.Start()
end sub

intendi così??
Facci sapere...
Ciao

[xyzsurf]

si certo ... grazie! mi sento un deficente ... eh eh