Dim i As Integer
Dim sTemp As String
 
For i = 0 To List1.ListCount - 1
  sTemp = sTemp & List1.List(i) & vbCrLf
Next i
Clipboard.Clear
Clipboard.SetText sTemp

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de