Dim ConPort As StringConPort = "20000"WinServer.RemoteHost = LocalHostWinServer.RemotePort = InfoPortWinClient.LocalPort = ConPortWinClient.Listen
WinServer.RemotePort = InfoPort
Dim InforPort as ESTOESELTIPO
Dim InfoPort As String