TcpClient, DataArrival, GUI thread: грамотная организация потоков

Public Class frmMain
    Dim WithEvents Socket As New MyTCPClient
    Private Sub frmMain_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Socket.CloseSocket()
    End Sub
 
    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Socket.InitSocket()
    End Sub
 
    Private Sub Socket_DataArrival(ByVal Data As String) Handles Socket.DataArrival
        Me.Text = Data
    End Sub
End Class
 
Public Class MyTCPClient
 
    Public Event DataArrival(ByVal Data As String)
    Dim Client As System.Net.Sockets.TcpClient
 
    Dim Stream As Net.Sockets.NetworkStream
    Dim Thread As Threading.Thread
 
    Public Sub CloseSocket()
        Thread.Abort()
        Thread = Nothing
 
        Stream.Dispose()
        Stream = Nothing
 
        Client.Close()
        Client = Nothing
    End Sub
 
    Public Sub InitSocket()
        Client = New System.Net.Sockets.TcpClient
        Client.Connect("pop.mail.ru", 110)
        Stream = Client.GetStream()
        Thread = New Threading.Thread(AddressOf CheckStream)
        Thread.Start()
    End Sub
 
    Private Sub CheckStream()
        Do
            If Stream.DataAvailable Then
                Dim bData(1023) As Byte
                Dim strData As String
                Stream.Read(bData, 0, 1024)
                strData = System.Text.Encoding.ASCII.GetString(bData)
                RaiseEvent DataArrival(strData)
            End If
        Loop
    End Sub
End Class

Me.Invoke(Sub() Me.Text = Data)

Public Class frmMain
    Dim WithEvents Socket As New EventDrivenSocket
    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Socket.Init("pop.mail.ru", 110)
    End Sub
 
    Private Sub Socket_DataArrival(ByVal Data As String) Handles Socket.DataArrival
        txtLog.AppendText(Data)
    End Sub
End Class

Imports System.Net.Sockets
Public Class EventDrivenSocket
    Private Socket As System.Net.Sockets.Socket
    Public Event DataArrival(ByVal Data As String)
    Private buffer(1023) As Byte
 
    Public Sub Init(ByVal host As String, ByVal port As Integer)
        Socket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
        Socket.Connect(host, port)
        BeginReceive()
    End Sub
 
    Private Sub BeginReceive()
        Dim SocketError As SocketError
        Dim AsyncCallbackBeginReceive = New AsyncCallback(AddressOf OnRecieve)
        Dim AsyncResult = Socket.BeginReceive(buffer, 0, 1024, SocketFlags.None, SocketError, AsyncCallbackBeginReceive, Nothing)
    End Sub
 
    Private Sub OnRecieve(ByVal AsyncResult As IAsyncResult)
        Dim BytesCount As Integer = Socket.EndReceive(AsyncResult)
        If BytesCount = 0 Then
            Socket.Close()
        Else
            Dim str = System.Text.Encoding.UTF8.GetString(buffer)
            RaiseEvent DataArrival(str)
            BeginReceive()
        End If
    End Sub
End Class

txtLog.AppendText(Data)

txtLog.Text &= Data