[المبرمج البسيط]

تم حل المشكلة

والكود هو

إقتباس :Dim buf As String

Dim i As Long

For i = 0 To List1.ListCount - 1

buf = buf + List1.List

buf = buf + vbCrLf

Next

Clipboard.Clear
Clipboard.SetText buf