vbnet timer 每10秒執行一次

引入下列命名空间：

System
System.Threading
使用 System.Threading.Timer 类，为使用VB.NET Timer需要如下创建一个实例：

Public Sub StartTimer()
Dim tcb As New TimerCallback(AddressOf Me.TimerMethod)
Dim objTimer As Timer
objTimer = New Timer(tcb, Nothing,TimeSpan.FromSeconds(5),TimeSpan.FromSeconds(10))
End Sub
Public Sub TimerMethod(ByVal state As Object)
MsgBox("The Timer invoked this method.")
End Sub