Hola, como no creo que puedas hacerlo de una tacada, deberás hacer algo así:
Código vb:
Ver originalPrivate Sub Command1_Click()
Dim i As Integer, c As String
For i = 0 To List1.ListCount - 1
c = c & List1.List(i) & vbCrLf
Next
Clipboard.Clear
Clipboard.SetText c
End Sub
Saludos