Lo he solucionado, porfin!! xD,
Dejo como lo hice por si a alguien mas le sirve. Saludos y gracias por la ayuda!!!
Dejo como lo hice por si a alguien mas le sirve. Saludos y gracias por la ayuda!!!
Código (vb) [Seleccionar]
Dim s As Integer, c As String
For s = 0 To List1.ListCount - 1
c = c & List1.List(s) & vbCrLf
Next
Clipboard.Clear
Clipboard.SetText c
End Sub