Imports System.Threading
 
Public Class clsThread
   Private t As Thread
 
   Public Event Aktualisieren(ByVal sender As clsThread, ByVal value As String)
 
   Public Sub New()
      t = New Thread(AddressOf DoThread)
      t.Start()
   End Sub
 
   Public Sub Abort()
      t.Abort()
   End Sub
 
   Public Sub DoThread()
      Try
         ' Endlosschleife mit einer Sekunde Pause und dem Event-Aufruf
         Do While True
            RaiseEvent Aktualisieren(Me, Now.ToString)
            Thread.Sleep(1000)
         Loop
      Catch ex As ThreadAbortException
         Return
      End Try
   End Sub
End Class

Public Class Form1
 
   ''' <summary>
   ''' Klasse mit Ereignisse instanziieren
   ''' </summary>
   Private WithEvents myThreadClass As New clsThread
 
   ''' <summary>
   ''' Hier der gefeuerte Event aus der Klasse mit seinem Delegaten
   ''' </summary>
   Private Delegate Sub DelAktualisieren(ByVal sender As clsThread, ByVal value _
     As String)
 
   Private Sub myThreadClass_Aktualisieren(ByVal sender As clsThread, ByVal _
     value As String) Handles myThreadClass.Aktualisieren
      If Me.InvokeRequired Then
         Me.Invoke(New DelAktualisieren(AddressOf myThreadClass_Aktualisieren), _
           New Object() {sender, value})
      Else
         Me.ListBox1.Items.Add(value)
      End If
   End Sub
 
   ''' <summary>
   ''' Wenn das Programm beendet wird, den Thread abbrechen
   ''' </summary>
   Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As _
     System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
      myThreadClass.Abort()
   End Sub
End Class

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