Private Sub Command4_Click()

FindFreeSock Listen()

Listen(SockIndex).RemoteHostIP = Text3.Text=============================================================此行出错

Listen(SockIndex).RemotePort = 40000

Listen(SockIndex).Listen

End Sub

谢谢,
Dim SockIndex As Integer
原来是我把Public关键字误打成Dim
但现在又变成编译错误:错误的参数号或无效的属性赋值
错误行:
Listen(SockIndex).RemoteHostIP = Text3.Text=============================================================此行出错