Class LadeUndVergleiche
dim URL as String
         public Sub methodeLadeUndVergleiche()
              {mache irgendwas mit der URL usw}
              RaiseEvent Done(Me, result)
         End Sub
End Class

Module Module1
   Dim WithEvents Vergleiche as LadeUndVergleiche
   Sub Main()
   Dim mythread As Threadin.Thread
   vergl = new LadeUndVergleiche()
   vergl.URL = "nwoeirnwoer"
   mythread = New Threading.Thread(AddressOf _
     LadeUndVergleiche.methodeLadeUndVergleiche)
   mythread.start()
   End Sub
 
   Public Sub vergl_Done(Byval obj as Object, Byval result as String) Handles _
     vergl.Done
      {mache was mit dem Ergebnis}
  End Sub
End Module

1 + 1 = 3 , fuer hinreichend gro?e 1.