Imports System.Threading
 
Public Class Class1
 
   Public Event MeinEvent(ByVal e As Integer)
 
   Public Sub StartThread()
      Dim t As New Thread(AddressOf DoThread)
      t.Start()
   End Sub
 
   Private Sub DoThread()
      For x As Integer = 1 To 20
         RaiseEvent MeinEvent(x)
         Thread.Sleep(100)
      Next
   End Sub
End Class

Public Class Form1
 
   ' Deine Klasse mit Ereignisse....
   Private WithEvents MeineKlasse As New Class1
 
   ' Deklaration der Delegaten
   Delegate Sub AusgabeLabelDelegate(ByVal e As Integer)
   Private LBDel As New AusgabeLabelDelegate(AddressOf AusgabeLabel)
 
 
   ' Die eigentliche Ausgabe
   Private Sub AusgabeLabel(ByVal e As Integer)
      Label1.Text = e.ToString
      Label1.Invalidate()
   End Sub
 
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
      MeineKlasse.StartThread()
   End Sub
 
   Private Sub MeineKlasse_MeinEvent(ByVal e As Integer) Handles _
     MeineKlasse.MeinEvent
      ' Ausgabe an den Delegaten weiterleiten
      Me.Invoke(LBDel, New Object() {e})
   End Sub
End Class

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