Private Function Listview_lesen(ByVal LV As ListView) As String
 
        Dim listview_select As String = ""
        If LV.SelectedItems.Count > 0 Then
            For Each item As ListViewItem In LV.SelectedItems
                If item.Text <> "" Then
                    If Not listview_select = "" Then
                        listview_select = listview_select & ", " & item.Text
                    Else
                        listview_select = item.Text
                    End If
                End If
            Next
        End If
        Return listview_select
 
    End Function

Gru? MTAS