Tcp套接字连接在Wirless VPN上不起作用

Question

我有一个客户端服务器应用程序，我在本地网络上运行此应用程序，一切正常。但是当我在客户端和服务器之间使用无线VPN网络时，我无法进行连接。

服务器代码是：

Dim localEndPoint As New IPEndPoint(IPAddress.Any, CInt(txtPort.Text))
listener = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
listener.Bind(localEndPoint)
listener.Listen(20)

一切都在本地网络上运行良好，但在使用无线VPN的公共网络上，我无法建立连接 我应该添加任何代码或防火墙，....？