Public Class Form1
  Dim WithEvents oTimer As Timer
 
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles MyBase.Load
    oTimer = New Timer
 
    ' 5 Minute
    oTimer.Interval = 60000 * 5
    oTimer.Start()
  End Sub
 
  Private Sub oTimer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) _
    Handles oTimer.Tick
    ' Hier der Code, der alle im angegeben Intervall ausgeführt werden soll
    ' ...
  End Sub
End Class

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de