' so sieht des in meiner form aus ...
    Dim WithEvents handler As ReplyHandler
    Sub listhandler(ByVal listing As String) Handles handler.ListingRetrieved
    MessageBox.Show(listing.Length)
    End Sub
 
    ' das ist  nun der sub der den event raised aus ner anderen klasse...
    ' hier fehlt natürlich der socket und der networkstream
    Friend Listing As String
    Public Event ListingRetrieved(ByVal Listing As String)
    Sub ListReadCallBack(ByVal ar As IAsyncResult)
        Try
            Dim bytesread As Integer = netstream.EndRead(ar)
            Listing = Listing & System.Text.Encoding.Default.GetString( _
              readbuffer, 0, bytesread)
            If bytesread = 0 Then
                RaiseEvent ListingRetrieved(Listing)
                netstream.Close()
                dsock = Nothing
            Else
                netstream.BeginRead(readbuffer, 0, readbuffersize, AddressOf _
                  ListReadCallBack, Nothing)
            End If
        Catch e As Exception
            netstream.Close()
            dsock = Nothing
        End Try
    End Sub