Timer的用法

sub main()
    Dim Timer1 As New System.Timers.Timer
    AddHandler Timer1.Elapsed, New System.Timers.ElapsedEventHandler(AddressOf Timer1_Elapsed)
Timer1.Interval = 10000
    Timer1.Enabled = True
    Timer1.AutoReset = False
End Sub
Private Sub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs)
    MsgBox(”OK”)
End Sub