Dim objListener As Net.Sockets.TcpListener
    Dim objReader As New IO.StreamReader
    Dim stream As IO.Stream
    Dim host As String = " "
    Dim port As Integer 
 
  Function Listen(ByVal host As String, ByVal port As Integer)
 
      objListener.Start("Host",Port)
 
      Return True
 
 
End Function

listen("127.0.0.1",1111)