Private Sub vbListViewGroups_KeyDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.C AndAlso e.Control Then
            Dim kd As String = String.Empty
 
            For Each lvi As ListViewItem In myListView.SelectedItems
                If kd <> String.Empty Then
                    kd &= vbCrLf
                End If
                For Each lvsi As ListViewItem.ListViewSubItem In lvi.SubItems
                    If kd <> String.Empty AndAlso Not kd.EndsWith(vbCrLf) Then
                        kd &= ";"
                    End If
                    kd &= lvsi.Text
                Next
            Next
 
            If kd = String.Empty Then Return
 
            Clipboard.Clear()
            Dim pbData As Byte() = System.Text.Encoding.Default.GetBytes(kd)
            Dim s As New IO.MemoryStream(pbData)
            Dim data As New DataObject()
            data.SetData(DataFormats.CommaSeparatedValue, s)
            data.SetData(DataFormats.UnicodeText, kd)
            Clipboard.SetDataObject(data, True)
        End If
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist