Add a timer via code at runtime
'Add timer using Timespan (Days, Hours, Mins, Secs, Milli)
Dim objTimer As New Timers.Timer
AddHandler objTimer.Elapsed, AddressOf objTimer_tick
objTimer.Interval = New TimeSpan(0, 0, 1, 0, 0).TotalMilliseconds
objTimer.Enabled = True
Public Sub objTimer_Tick(ByVal sender As Object, ByVal e As Timers.ElapsedEventArgs)
MsgBox("Timer!")
End Sub
|
|
|