Cita:
Iniciado por popopo gracias por responder te doy mi codigo donde genera el error.....
.....Private Sub ws_Close(Index As Integer)
On Error Resume Next
If Index <> 0 Then
ws(Index).Close
Unload ws(Index)
iSockets = iSockets - 1
End If
End Sub
La parte del código en Rojo está MAL, ya que al descargar un Objeto del Index especificado ese Index queda vacío, pero el último Index cargado aún queda utilizado, entonces al intentar cargar te da el error '360'...