Dim MSGS As System.Threading.ThreadStart
MSGS = New System.Threading.ThreadStart(AddressOf GetMessages)
Dim Messages As New System.Threading.Thread(MSGS)
......
Messages.start
.......

Public Sub GetMessages()
 
        Dim bytes() As Byte = New [Byte](4048) {}
        Dim receivedData As String
        Dim Prozess As Process()
        Dim EndProz As Process
        Dim flag(1) As Boolean
 
        Dim ipHostInfo As System.Net.IPHostEntry = System.Net.Dns.Resolve( _
          System.Net.Dns.GetHostName())
        Dim ipAdress As System.Net.IPAddress = ipHostInfo.AddressList(0)
        Dim localEndPoint As New System.Net.IPEndPoint(ipAdress, 4060)
        Dim s As New Socket(System.Net.Sockets.AddressFamily.InterNetwork, _
          SocketType.Stream, ProtocolType.IP)
 
        Try    
                s.Bind(localEndPoint)
                s.Listen(30)
.... 
        End Try
End Sub

If Messages.IsAlive = False then Messages.start