[VB.NET] Graphics: disegno in movimento

[jabjoint]

Ciao ragazzi, vorrei animare un disegno.

Io uso il seguente codice per disegnare in una "label" ma non mi sembra molto efficiente, voi come fareste?

Private Sub cmdMove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdMove.Click
        If cmdMove.Text = "ferma" Then
            cmdMove.Text = "muovi"
            ferma = True
        Else
            cmdMove.Text = "ferma"
            ferma = False
            Dim G As Graphics = Graphics.FromHwnd(lab.Handle)
            G.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
            Draw(G)
        End If
End Sub

Public Sub Draw(ByVal G As Graphics)
Dim i As Int16
Do While Not ferma
            i += 1
            G.Clear(lab.BackColor)
            G.DrawRectangle(Pens.Black, New Rectangle(i, 0, 10, 10))
            Thread.Sleep(3)
            Application.DoEvents()
Loop
End sub

In pratica vorrei che il disegno appaia nella label in seguito ad un click in una label fino a quando non lo fermo con il bottone.

Grazie.

[alka]

Rispondo qui alla segnalazione ricevuta in merito al quesito "mal posto" nella discussione: se occorre precisare meglio il concetto, è sempre possibile - e in questo caso consigliabile - rispondere alla propria discussione aggiungendo eventuali dettagli mancanti o progressi.

L'importante è che non diventi una chat o un log crudo dei propri progressi minuto per minuto, ma aggiungere una informazione mancante non è mai un problema.

Ciao!

[jabjoint]

Mi correggo ho scritto commettendo un errore:

" In pratica vorrei che il disegno appaia nella label in seguito ad un click in una label fino a quando non lo fermo con il bottone. "

Questo era quello che dovevo scrivere:

" In pratica vorrei che il disegno appaia nella label in seguito ad un click su un pulsante fino a quando non lo rifermo premendo di nuovo il pulsante. "

Nessuno sa aiutarmi?