Private Sub Command1_Click()

If Text1.Text = "" Then

   MsgBox "请输入IP地址!"
   
   Exit Sub
   
ElseIf Text2.Text = "" Then

   MsgBox "请输入监听端口!"
   
   Exit Sub
   
End If

FindFreeSock (Listen)

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

Listen(SockIndex).RemotePort = Text2.Text

Listen(SockIndex).Listen

Picture1.Print "正在监听,请稍后......"

End Sub

Listen(SockIndex)，控件数组名

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

搞不清你的这个 Listen 是什么数组控件， SockIndex 也没有发现定义和赋值，因此 SockIndex 是变体数据，在这里可能是0，那么有没有Listen(0)的控件？
由于不清楚这个 Listen 是什么数组控件，因此有没有 RemoteHostIP 这个属性就不知道了，所以产生了：“错误的参数号或无效的属性赋值”的错误。

[此贴子已经被作者于2018-11-2 11:18编辑过]