Option Strict On
Option Explicit On
 
Public Class Form1
 
    Dim WithEvents calc As Class1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim mythread As Threading.Thread
 
        calc = New Class1()
        calc.data = 123
        mythread = New Threading.Thread(AddressOf calc.method1)
        mythread.Start()
        Threading.Thread.Sleep(1000)
        Console.WriteLine(vbCrLf + "Return drücken")
        Console.ReadLine()
    End Sub
 
 
    Public Sub calc_Done(ByVal obj As Object, ByVal result As Integer) Handles _
      calc.Done
        Console.WriteLine("calc_Done: result={0}", result)
    End Sub
 
End Class

Option Strict On
Option Explicit On
 
Public Class Class1
 
    Public data As Integer
    Public result As Integer
    Public Event Done(ByVal obj As Object, ByVal result As Integer)
 
    Public Sub method1()
        result = data - 1
        RaiseEvent Done(Me, result)
    End Sub
 
End Class

Public Class Form1
 
    Dim WithEvents test As Class1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim oTest As New Class1()
        Dim myThread As System.Threading.Thread
 
        oTest.Obergrenze = 800
        myThread = New Threading.Thread(AddressOf oTest.test)
        myThread.Start()
 
    End Sub
 
    Public Sub JetztEvent(ByVal sender As Object, ByVal wert As Integer) _
      Handles test.Fertig
 
        MsgBox(wert)
 
    End Sub
 
 
End Class

Public Class Class1
 
    Public Obergrenze As Integer
    Public ergebnis As Integer
    Public Event Fertig(ByVal sender As Object, ByVal wert As Integer)
 
    Public Sub test()
 
        For i As Integer = 0 To Obergrenze
            i += 1
            ergebnis = i
            RaiseEvent Fertig(Me, ergebnis)
        Next
 
    End Sub
 
End Class