Option Explicit On
Option Strict On
 
Public Class Form1
    Dim WithEvents myTimer As System.Timers.Timer = Nothing
    ' TimerVariable (Rumpf) anlegen - Hier wird der Timer noch nicht gebunden
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        myTimer = New System.Timers.Timer     ' Timer binden
        myTimer.Interval = 100 '              ' Intervall festlegen 100 = 100ms
 
        AddHandler myTimer.Elapsed, AddressOf TimerOccured
        ' Hiermit sagen wir dem System, an welche Sub unser
        ' Timer-Event geleitet werden soll. 
 
        myTimer.Enabled = True                ' Timer starten
 
    End Sub
 
    Private Sub TimerOccured(ByVal sender As Object, ByVal e As _
      System.Timers.ElapsedEventArgs)
        ' Hier Uberprüfung einbauen
        ' if ...
    End Sub
 
End Class

_________________________________________________________________________________________________
Internet-Adressen innerhalb des (..) WWW beginnen stets mit der Buchstabenfolge http://www. (LG Duisburg, AZ 8 O 219/99)