Private Sub Command4_Click()

FindFreeSock Listen()

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

Listen(SockIndex).RemotePort = 40000

Listen(SockIndex).Listen

End Sub

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

搞不清你的这个 Listen 是什么，控件？变量？运行时程序认为是变量，因此变量未定义。
如果是数组变量，首先定义，有上下标，才能使用。
如果是控件应该是数组控件。
另外 SockIndex 也没有发现定义和赋值。

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