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

السلام عليكم

انا بحاجدة الى كود لنسخ جميع محتويات list

واقوم باللصق في اي مكان اريدة

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

تم حل المشكلة

والكود هو

إقتباس :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