Private Sub Winsock1_Close(Index As Integer)
If Winsock1(Index).State = 0 Or Winsock1(Index).State = 8 Then
 
If Nichts = True Then
Nichts = False
Else
If Kill = True Then
 Kill = False
 Else
      Text1.SelText = Winsock1(Index).Tag & " Hat den chat verlassen!" & vbCrLf
      Send ("txt" & Chr(230) & Winsock1(Index).Tag & " Hat den chat verlassen!")
 
           Suche1 = List1.Text
      For Durchlaufe1 = 0 To List1.ListCount - 1
      If UCase(Suche1) = _
         UCase(Left(List1.List(Durchlaufe1), Len(Suche1))) Then
         List1.RemoveItem Durchlaufe1
         Unload Winsock1(Index)
      End If
Next Durchlaufe1
End If
End If
 
 
End If
End Sub