If Me.ListView1.SelectedItems.Count < 0 Then Exit Sub
Dim build As New System.Text.StringBuilder, row As New List(Of String)
For Each item As ListViewItem In Me.ListView1.SelectedItems
For Each subitem As ListViewItem.ListViewSubItem In item.SubItems
row.Add(subitem.Text)
Next
build.AppendLine(String.Join(vbTab, row.ToArray))
row.Clear()
Next
Clipboard.SetText(build.ToString)