Una cosa così ? :-X
Con il Timer:
Private j As Byte
Public Sub Form_Open()
DrawingArea1.Background = Color.White
DrawingArea1.Cached = True
Timer1.Start()
Timer1.Delay = 1000 ' ritardo = 1 secondo
End
Public Sub Timer1_Timer()
Dim i As Short
i = 100 * j
With Draw
.Begin(DrawingArea1)
.RichText(String.Chr(&2730), i, 100, 10, 10, 0)
.End
End With
Inc j
End
Senza Timer:
Private j As Byte
Private ciclo As Boolean = True
Public Sub Form_Open()
Dim i As Short
DrawingArea1.Background = Color.White
DrawingArea1.Cached = True
Me.Show
While ciclo ' Esegue il ciclo, finché la omonima variabile è "vera"
i = 50 * j
With Draw
.Begin(DrawingArea1)
.RichText(String.Chr(&2730), i, 100, 10, 10, 0)
.End
End With
Wait 1 ' ritardo = 1 secondo
Inc j
Wend
End
Public Sub Button1_Click() ' Impone l'uscita dal ciclo
ciclo = False
End