Public Sub CopyListViewToClipboard(ByVal lv As ListView)
	Dim buffer As New StringBuilder

	For i As Integer = 0 To lv.Columns.Count - 1
		buffer.Append(lv.Columns(i).Text)
		buffer.Append(vbTab)
	Next

	buffer.Append(vbCrLf)

	For i As Integer = 0 To lv.Items.Count - 1
		For j As Integer = 0 To lv.Columns.Count - 1
			buffer.Append(lv.Items(i).SubItems(j).Text)
			buffer.Append(vbTab)
		Next

		buffer.Append(vbCrLf)
	Next

	My.Computer.Clipboard.SetText(buffer.ToString)
End Sub