For i = 0 To 65536
Debug.Print i
On Error GoTo sss
Load Listener(i)
Listener(i).LocalPort = i
Listener(i).Listen
DoEvents
Text1.Text = Text1.Text & vbCrLf & Now & " 监视" & i & "端口"
Text1.SetFocus
On Error GoTo 0
sss2:
Next i

这是程序代码，其中我知道Listener(i).Listen这一句会出错，所以设置了On error goto代码，但是依旧会报错弹出，怎么办？
我加入了winsock控件，listener控件数组就是一个Winsock。
报错信息为实时错误："10048"

如果只想找空闲端口或测试本机哪些端口被占用的话，不需要控件数组。