Ho provato a seguire il tuo consiglio, ma mi sono perso... Allora ho cercato in un altro forum un equivalente a quello che cercavo :
codice:
Dim contatore As Integer 
Dim XMLDoc As New Xml.XmlDocument XMLDoc.Load(GetCurrentDirectory() & "\dati\elementi.xml") 'xml file you want to load 
Dim node As Xml.XmlNode = XMLDoc.SelectSingleNode("/datiopzioni/record") 'node path 
Dim Path As String 
Dim i As Integer = 0 
For i = 0 To node.ChildNodes.Count - 1 Step 1 
Path = node.ChildNodes(i).InnerText contatore = contatore + 1 Select 
Case contatore 
Case 1 
If lbgrandezza.Items.Contains(Path).Equals(1) = True Then 
Labelnum.Text = "1" 
End If 
Case 2 
If lbgrandezza.Items.Contains(Path).Equals(3) = True Then 
Labelnum.Text = "3" 
End If 
If lbgrandezza.Items.Contains(Path).Equals(5) = True Then 
Labelnum.Text = "5" 
End If 
---------
---------
Ora mi torna tranne che il tipo di codifica per un oggetto del tipo :

codice:
If lbgrandezza.Items.Contains(Path).Equals(3) = True Then 
Labelnum.Text = "3" 
End If
non succede nulla... scusate se passo la mano.