R
Ross Ylitalo
How about something like:
Sub Main()
Dim datStart As Date
myTimer.Interval = 10000 ' every 10 seconds
datStart = DateTime.Now()
Private Sub myTimer_Timer()
If DateTime.Now().SubTract(datStart).Minutes > 1 Then
datStart = DateTime.Now()
RunFunction()
End If
End Sub
End Sub
Sub Main()
Dim datStart As Date
myTimer.Interval = 10000 ' every 10 seconds
datStart = DateTime.Now()
Private Sub myTimer_Timer()
If DateTime.Now().SubTract(datStart).Minutes > 1 Then
datStart = DateTime.Now()
RunFunction()
End If
End Sub
End Sub