Get client IP from TCPClient

Dim IsConnected As Boolean = False
   Dim myClient As TcpClient = Listener.AcceptTcpClient

   Do
    IsConnected = myClient.Connected
   Loop Until IsConnected = True

   Dim ipend As Net.IPEndPoint = myClient.Client.RemoteEndPoint

 

   LogMessage(ipend.Address.ToString & " connected")