2012-03-03 46 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 2012-03-03 15:36:22