12-02-17, 05:04 AM
وعليكم السلام ورحمة الله وبركاته
إستخدم هذا الكود :
إستخدم هذا الكود :
PHP كود :
Private Sub Command1_Click()
Dim zListData As String
Dim I As Integer
For I = 0 To List1.ListCount - 1
zListData = zListData & List1.List(I) & vbNewLine
Next
Clipboard.SetText zListData
End Sub
