:master: guarda se questo funziona

codice:
    '-------------------------------------------------------------------
    'Restituisce una collezione di ListItem selezionati di un ListControl
    'esempio:
    'Dim vli As List(Of ListItem) = ItemSelezionati(Me.ListBox1)
    'For Each LI As ListItem In vli
    '    PrintLn(LI.Text, LI.Value)
    'Next
    '-------------------------------------------------------------------
    Public Function ItemSelezionati(ByVal ListBox As ListControl) As List(Of ListItem)
        Dim vli As New List(Of ListItem)
        Dim LI As ListItem
        For Each LI In ListBox.Items
            If LI.Selected Then
                vli.Add(LI)
            End If
        Next
        Return vli
    End Function