runtime error '360' ayuda con esto me muero!""

[popopo]

cunado cierro el socket con el codigo que me pasaste

Private Sub ws_Close(Index As Integer)
On Error Resume Next
If Index <> 0 Then
'Pero cuando lo borras borras el index que le mandaste cuando en realidad 'tenes que borrar el index + 1.
ws(Index+1).Close
Unload ws(Index+1)
iSockets = iSockets - 1
End If

me tira el error que le objeto todavia no esta creado