codice:
Public Class user
    'NMDC
    Public ultimomex As String
    Public ultimoconnecttome As Int64
    Public ip As String
    Public nick As String = ""
    Public share As Int64
    Public isop As Boolean
    Public profile As Integer
    Public ultimamyinfo As Int64
    Public ultimosearch As Int64
    Public ultimonicklist As Int64
    Public ultimomexint As Int64
    Public ultimopvt As Int64
    Public ultimopvtachi As String
    Public conteggiomyinfo As Integer
    Public conteggiogetnicklist As Integer
    Public zline As Boolean
    Public usercommand As Boolean
    Public stato As String
    Public inizialistato As String
    Public myinfo As String = ""
    Public altronick As String = ""
    Public avvertimenti As Integer
    Public temp As String = ""
    Public falso As Boolean
    Public sharenascosto As Boolean
    Public loggato As Byte = 0
    Public timecontrol As Int64
    Public fraseparla As String
    Public nicklist As Boolean = False
    Public cambiata As Boolean = False
    Public primavotla As Boolean = True
    Public fallato As Integer
    Public supportotthsearch As Boolean = False
    Public infomandate As Boolean = False
    Public client As System.Net.Sockets.Socket
    Public modalita As Char = "M"
    Public contr As Byte = 0
    Public quit As Byte = 0
    Public nickadc As Byte = 0
    Public ReadBuffer(1024) As Byte

    'ADC
    Public adc As Boolean = False
    Public cod As String
    Public id As String
    Public pd As String
    Public slots As Integer
    Public email As String
    Public descr As String
    Public taguser As Integer
    Public tagreg As Integer
    Public tagop As Integer
    Public binf As String

    Public Sub finale()
        Me.Finalize()
    End Sub
End Class
codice:
  Public Sub disconnettiuser(ByRef user As user)
        On Error Resume Next
        IMPOSTAZIONI.oplist.Remove(user)
        IMPOSTAZIONI.vero.Remove(user)
        IMPOSTAZIONI.users.Remove(user)
        mandaatutti2adc("IQUI" & Chr(32) & user.cod, user)
        If user.nickadc = 0 Then
            If user.isop Then
                mandaoplistconthread()
            End If
            If user.quit = 0 Then
                mandaatutti2("$Quit " & user.nick)
            End If
            If user.altronick <> "" Then
                mandaatutti2("$Quit " & user.altronick)
            End If
        End If

        user.client.Close()
        user.cod = Nothing
        user.id = Nothing
        user.pd = Nothing
        user.email = Nothing
        user.descr = Nothing
        user.binf = Nothing
        user.altronick = Nothing
        user.fraseparla = Nothing
        user.inizialistato = Nothing
        user.ip = Nothing
        user.myinfo = Nothing
        user.nick = Nothing
        user.stato = Nothing
        user.temp = Nothing
        user.ultimomex = Nothing
        user.ultimopvtachi = Nothing
        user.modalita = Nothing
        user.ReadBuffer = Nothing
        user.finale()
    End Sub
quella è la classe user... e poi ce la procedura per eliminarla...