winsock chat server help

in winsock chat server command6 button am trying to do this

Private Sub Command6_Click()
Dim num As Integer
For num = 0 To List1.ListCount - 1
wsServer(CInt(lstUsers.List(num))).SendData "COMMAND_KICK"

DoEvents
Next num
End Sub


then COMMAND_KICK value sends out disconnect command to client side disconnecting client

when i click the command6 it disconnects all clients in list1 i only want to disconnect selected list1 users please help:cry::cry: