codice:
Dim a As Byte

Private Sub Form_Load()
   a = 10
   Text1.Text = a
   Timer1.Interval = 500
   Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
   a = a - 1
   Text1.Text = a
   If a = 0 Then
      Text1.Text = "Finito!"
      Timer1.Enabled = False
   End If
End Sub