Private Sub Winsock1_Close(Index As Integer)
  Dim X As Integer
  With ListView1.ListItems
    For X = 1 To .Count
      If Val(.Item(X).SubItems(1)) = Index Then
        .Remove .Item(X).Index
        chattercount = chattercount - 1 
        Exit Sub
      End If
    Next X
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de