please look at the code i have below and the image label1 = 2 represents index of winsock trying to count the index of winsock with the list1 /index values and if non are matched with label2 then remove item
On Error Resume Next
Dim demopacket() As String
Dim X As Integer
For X = List1.ListCount - 1 To 0 Step -1
demopacket() = Split(List1.List(X), "/")
Dim num As Integer
num = num + 1
Debug.Print num
If num = Label1.Caption Then
'Exit For
End If
If Label1.Caption = demopacket(2) Then
Else
List1.RemoveItem X
lstOnline.RemoveItem X
'RemoveUser List1.List(X)
'RemoveUserFromRoom List1.List(X)
Call RemoveUser(demopacket(0))
Call RemoveUserFromRoom(demopacket(0))
Call RoomCount(demopacket(1), False)
End If
'Debug.Print demopacket(0)
'demopacket(0) username
'demopacket(1) roomname
'demopacket(2) index
Next
still removes index users that exist
so again
label1.caption = 2
xxx2x/room1/4 Remove
jas8du2/room1/1
mosdjas/room2/2
jaosjdiasjd/room1/5 Remove
jasidjas92m/room1/8 Remove