Dim user  as String
  Dim tindex()  as Variant
  Dim i  as Integer
  Dim Max as Integer
  Max = frmServer.Server.UBound
  user = lstUsers.Text
  If user =  "" Then
    Return
  Else
    i = 0
    For i =  0 To Max
      If linus(i) =  user Then
        Server(i).SendData ("Bye, youve been kicked")
        lstUsers.RemoveItem lstUsers.ListIndex
        linus(i) =  ""
        Server(i).Close
      End If
    Next
    'currip = currip + 1
    'rip = lstIP.ListIndex
    'lstIP.RemoveItem (rip)
  End If