Multi-threading / asynchronous tcp socket listener

' This is the best example I could find:
 
Imports System.Threading
Imports System.Net.Sockets
Imports System.IO
 
Public Class MainClass
   Shared Dim connection As Socket 
   Shared Dim readThread As Thread 
    
   Shared Dim socketStream As NetworkStream
    
   Shared Private writer As BinaryWriter
   Shared Private reader As BinaryReader
 
   Public Shared Sub Main()
    
       readThread = New Thread(AddressOf RunServer)
       readThread.Start()
    
       Try
          writer.Write("SERVER>>> " ) ' send data
          Console.WriteLine("SERVER>>> " )
    
    
          connection.Close()
    
       Catch exception As SocketException
          Console.WriteLine("Error writing object")
       End Try
 
   End Sub
 
   Shared Public Sub RunServer()
      Dim listener As TcpListener
      Dim counter As Integer = 1
 
      Try
         listener = New TcpListener(5000)
         listener.Start()
 
         While True
            Console.WriteLine("Waiting for connection" )
            connection = listener.AcceptSocket()
            socketStream = New NetworkStream(connection)
 
            writer = New BinaryWriter(socketStream)
            reader = New BinaryReader(socketStream)
 
            Console.WriteLine("Connection " & counter &" received.")
 
            writer.Write("SERVER>>> Connection successful")
 
            Dim theReply As String = ""
 
            Try
               Do
                  theReply = reader.ReadString()
                  Console.WriteLine(theReply)
               Loop While (theReply <> "CLIENT>>> TERMINATE" _
                  AndAlso connection.Connected)
 
            Catch inputOutputException As IOException
               Console.WriteLine("Client application closing")
 
            Finally
               Console.WriteLine("User terminated connection")
               writer.Close()
               reader.Close()
               socketStream.Close()
               connection.Close()
               counter += 1
            End Try
 
         End While
 
      Catch inputOutputException As IOException
         Console.WriteLine("Server application closing")
 
      End Try
   End Sub
End Class

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82: