Option Explicit

Public SockIndex As Integer

Public Sub FindFreeSocket()

SockIndex = 200

Dim i

'遍历控件

For i = 0 To Socket.UBound--------------------------------------此行出错

  If Socket(i).State = 0 Then SockIndex = i
  
Next

If SockIndex = 200 Then

  Load Socket(Socket.UBound + 1)
  
  SockIndex = Socket.UBound
  
End If

End Sub

Socket控件组放了么？

通用查变量未定义的方法：
中断时，确定后，选择菜单，视图-》本地窗口
然后查找你所对应的变量、对象，来查看它的属性或值。
找找有没有报错的这个变量或对象属性。


代码经测试初步问题没，非常可能就是 2楼说的这个原因。