vb Code:
  1. Sub Form_Load()
  2.     Timer1.Interval = 1000
  3.     Timer1.Enabled = True
  4. End Sub