Try
            For Each IT As ListViewItem In TsuRat.ListView1.Items
                If IT.ToolTipText = Sock Then
                    IT.Remove()
                    For Each ITT As ListViewItem In TsuRat.ListView1.Items
                        If ITT.ToolTipText.Contains(IP(Sock)) Then
                            ITT.Remove()
                            SK(Sock).Close()
                            SK(Sock).Disconnect(True)
                            SK(Sock).Dispose()
                        End If
                    Next
                End If
            Next
        Catch : End Try