Public Delegate Sub IncomingDataDelegate(ByVal content$)
Public IDDelegate As IncomingDataDelegate = AddressOf ShowData
 
Public Sub ShowData(ByVal content$)
Dim msgwin As New MsgWindow
msgwin.TextBox1.Text=content
msgwin.Show()
End Sub

        Private Sub ReceiveCallBack(ByVal ar As IAsyncResult)
            Dim state As StateObject = CType(ar.AsyncState, StateObject)
            Dim handler As Socket = state.workSocket
            Dim content As String = String.Empty
            Dim bytesRead% = handler.EndReceive(ar)
 
            content = ASCII.GetString(state.buffer)
 
            If bytesRead > 0 Then
                handler.BeginReceive(state.buffer, 0, state.buffersize, _
                  SocketFlags.None, AddressOf ReceiveCallBack, state)
                MainForm.Invoke(MainForm.IDDelegate, New String() {content})
            End If
 
            Array.Clear(state.buffer, 0, state.buffersize)
        End Sub