Public Class clsTimer
 
   Private m_TimerName As String
   Private m_TimerIndex As Integer = 0
   Private WithEvents m_Timer As New Timer
 
   Public Event TimerTick(ByVal sender As clsTimer)
 
   Public Sub New(ByVal nInterval As Integer)
      With m_Timer
         .Interval = nInterval
         .Enabled = True
         .Start()
      End With
   End Sub
 
   Public Sub New(ByVal nInterval As Integer, ByVal TimerName As String)
      Me.New(nInterval)
      m_TimerName = TimerName
   End Sub
 
   Public Sub New(ByVal nInterval As Integer, ByVal TimerIndex As Integer)
      Me.New(nInterval)
      m_TimerIndex = TimerIndex
   End Sub
 
   Private Sub m_Timer_Tick(ByVal sender As Object, ByVal e As _
     System.EventArgs) Handles m_Timer.Tick
      RaiseEvent TimerTick(Me)
   End Sub
 
   Public Property TimerName() As String
      Get
         Return m_TimerName
      End Get
      Set(ByVal value As String)
         m_TimerName = value
      End Set
   End Property
 
   Public Property TimerIndex() As Integer
      Get
         Return m_TimerIndex
      End Get
      Set(ByVal value As Integer)
         m_TimerIndex = value
      End Set
   End Property
End Class

Public Class Form1
 
   Private TimerList As New ArrayList
 
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
      ' 10 Timer erstellen
      For x As Integer = 0 To 9
 
         ' Neuer Timer mit Interval 1000 * x
         Dim myTimer As New clsTimer(1000 * (x + 1))
 
         ' Timer einen Index zuweisen
         myTimer.TimerIndex = x
 
         ' Timer einen Namen zuweisen
         myTimer.TimerName = "Timer" & x.ToString
 
         ' Ereignis Handler installieren
         AddHandler myTimer.TimerTick, AddressOf TimerEvent
 
         ' Timer in ArrayList schieben
         TimerList.Add(myTimer)
      Next
   End Sub
 
   ' Ereignis Handler des Timers aus der ArrayList
   Private Sub TimerEvent(ByVal sender As clsTimer)
      Debug.Print("Timer Ereignis von " & sender.TimerName)
   End Sub
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control