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