Private $iCount As Integer
Public Sub Button1_Click()
$iCount = ValueBox1.Value
For i As Integer = $iCount To 0 Step -1
ValueBox1.Value = i
Wait 0.005
Next
End
Public Sub Form_Open()
ValueBox1.Value = 10000
End
Grazie Capitano, ci devo lavorare ed adattarlo.
:ciao: