Altro:

codice:
Public Class itemDataAssociati
    Private m_visualizzazione As String
    Public m_id As Integer
    Public m_nome As String
    Public m_cognome As String
    Public m_fisso As String
    Public m_tim As String
    Public m_vodafone As String
    Public m_wind As String
    Public m_h3g As String
    Public m_mail As String
    Public m_ruolo As String
    Public Sub New(ByVal visualizzazione As String, ByVal id As Integer, ByVal nome As String, ByVal cognome As String, ByVal fisso As String, ByVal tim As String, ByVal vodafone As String, ByVal wind As String, ByVal h3g As String, ByVal mail As String, ByVal ruolo As String)
        m_visualizzazione = visualizzazione
        m_id = id
        m_nome = nome
        m_cognome = cognome
        m_fisso = fisso
        m_tim = tim
        m_vodafone = vodafone
        m_wind = wind
        m_h3g = h3g
        m_mail = mail
        m_ruolo = ruolo
    End Sub
Se leggi tutte quelle varabili dalle proprietà della classe conviene convertirle in Private, poi le proprietà sono del tipo String non Integer, quindi in definitiva la classe diventa:

codice:
Public Class itemDataAssociati
    Private m_visualizzazione As String
    Private m_id As Integer
    Private m_nome As String
    Private m_cognome As String
    Private m_fisso As String
    Private m_tim As String
    Private m_vodafone As String
    Private m_wind As String
    Private m_h3g As String
    Private m_mail As String
    Private m_ruolo As String

    Public Sub New(ByVal visualizzazione As String, ByVal id As Integer, ByVal nome As String, ByVal cognome As String, ByVal fisso As String, ByVal tim As String, ByVal vodafone As String, ByVal wind As String, ByVal h3g As String, ByVal mail As String, ByVal ruolo As String)
        m_visualizzazione = visualizzazione
        Me.m_id = id
        Me.m_nome = nome
        Me.m_cognome = cognome
        Me.m_fisso = fisso
        Me.m_tim = tim
        Me.m_vodafone = vodafone
        Me.m_wind = wind
        Me.m_h3g = h3g
        Me.m_mail = mail
        Me.m_ruolo = ruolo
    End Sub

    Public Overrides Function ToString() As String
        Return m_visualizzazione
    End Function
    Public ReadOnly Property nomeAssociato() As String
        Get
            Return m_nome
        End Get
    End Property
    Public ReadOnly Property cognomeAssociato() As String
        Get
            Return m_cognome
        End Get
    End Property
    Public ReadOnly Property fissoAssociato() As String
        Get
            Return m_fisso
        End Get
    End Property
    Public ReadOnly Property timAssociato() As String
        Get
            Return m_tim
        End Get
    End Property
    Public ReadOnly Property vodafoneAssociato() As String
        Get
            Return m_vodafone
        End Get
    End Property
    Public ReadOnly Property windAssociato() As String
        Get
            Return m_wind
        End Get
    End Property
    Public ReadOnly Property h3gAssociato() As String
        Get
            Return m_h3g
        End Get
    End Property
    Public ReadOnly Property mailAssociato() As String
        Get
            Return m_mail
        End Get
    End Property
    Public ReadOnly Property ruoloAssociato() As String
        Get
            Return m_ruolo
        End Get
    End Property
End Class