Option Explicit
 
Private myTime As Long
 
Private Sub Form_Load()
  myTime = 10
  Timer1.Interval = 1000
  Timer1.Enabled = True
  Text1.Text = CStr(myTime)
End Sub
 
Private Sub Timer1_Timer()
  myTime = myTime - 1
  Text1.Text = CStr(myTime)
  If myTime < 1 Then Timer1.Enabled = False
End Sub