1.如果计算机都在局域网中，那么检查是否开启了防火墙，建议关闭防火墙软件以及操作系统自带的防火墙。

2.如果不是在局域网内的计算机：

A.winsock控件只能获取你本机网卡的IP地址，无法获取你公网的IP地址。
B.如果本地计算机和远端的计算机都在公网上（计算机没使用路由器直接上网），那么只要用其他方法获取计算机在公网中的IP地址就可以使用winsock控件进行通信。
C.如果有一台计算机在公网上，另一个计算机在使用路由器上网，那么VB提供的winsock控件就无能为力了，需要使用API函数去实现。

建议你搜集一些关于NAT穿透的资料，采用UPD协议比TCP协议容易实现。