vb timer問題

從 Tools 拉出一個 Timer 到 Form1
Double Click 個 Form，會進入以下的 Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase .Load

' 起動計時器
Timer1.Start( )

' 設定時間間距，以 millisecond( 微秒, ms ) 為單位，1s = 1000ms
Timer1.Interval = 3000

End Sub

然後寫一個 Function，把 Handles 設定為 Timer1.Tick

Function ChangeLabel() Handles Timer1.Tick

Label1.Text = My .Computer.Clock.LocalTime.Second

End Function

這樣就會每間三秒，Label1 就會顯示一次現在的秒數

係 個 event 入面 set timer 就成了