Module里添加定时器控件

dim ti as new timer
addhandler ti.Tick,addressof ti_Tick
Private Sub ti_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
'这里编写你的代码
End Sub