Class clsConn
 Public Event DataArrival(ByVal Data As String)
'Aufruf von Form
    Public Sub Listen()
        mState = 1 'Set State flag to Listening
        RaiseEvent StatusChange(Status.Listening)
        ThreadPool.QueueUserWorkItem(New System.Threading.WaitCallback( _
          AddressOf Listen2))
 
Private Sub Listen2(ByVal State As Object)
   Raiseevent DataArrival("test")     
End Sub 'Start listening to socket
 
end class
 
Dim WithEvents myLSock As New LSock()
sub new()
myLSock.Listen()
end sub
 
Private Sub myLSock_DataArrival(ByVal DataIn As String) Handles _
  myLSock.DataArrival
        txtDisplay.AppendText(DataIn & vbCrLf)
 End Sub

Cya At Frostwolf