这个是TCP Client 的初始化代码：

Private Sub Form_Load()
On Error Resume Next
tcpClient.RemoteHost = "192.168.1.101"
tcpClient.RemotePort = 3000
tcpClient.Connect
FrmClient.Show
End Sub

以下是TCP Server 的初始化代码：

Private Sub Form_Load()
On Error Resume Next
App.TaskVisible = False
tcpServer.LocalPort = 3000
tcpServer.Bind
tcpServer.Listen
Systemn32.Hide
End Sub

连接关闭的时候：

Private Sub tcpServer_Close()
tcpServer.Close
tcpServer.Listen
End Sub

Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
If tcpServer.State <> sckClosed Then
tcpServer.Close
End If
tcpServer.Accept requestID

我在虚拟系统里进行测试，Client在本机，Server在虚拟系统调试，运行的时候State属性出现 6 ，6代表正在连接，还没有连接上，究竟为什么啊？不明白。
老是连接不上，有什么办法解决呢？