2012-03-03 2 views

ответ

4
Sub Main() 

    Dim Timer As New Timers.Timer(1000) '1000 ms 
    Timer.AutoReset = True 
    AddHandler Timer.Elapsed, AddressOf TimerElapsedHandler 
    Timer.Start() 

End Sub 

Private Sub TimerElapsedHandler(ByVal sender As Object, ByVal e As Timers.ElapsedEventArgs) 

    'do stuff here 

End Sub 
+0

tnkks dudde работает ^^ – user1233875