Private Sub Form_Load()Timer1.Interval = 1000 '1000毫秒（即1秒）执行一次Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()'每隔一秒要执行的操作代码写在这End Sub
