Copiar líneas de un listview

[parboli]

Bueno encontré yo mismo la solución.
Les dejo el código, por si les sirva

Dim str As String
Dim I As Integer
Dim x As Integer
Dim y As Integer
x=10
For I = 1 To ListPedido.ListItems.Count

If ListPedido.ListItems(I).Selected Then
For y = 0 To x - 1
If y = 0 Then
str = str & ListPedido.ListItems(I)
Else
str = str & ListPedido.ListItems(I).ListSubItems(y)
End If
str = str & vbTab
Next y
str = str & vbCr
End If

Next I

Clipboard.Clear
Clipboard.SetText str, 1


Saludos