|
Jaruzel.com
|
|
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 |
|