[king2512010]

السلام عليكم ورحمة الله وبركاته
اليك هذا الكود

PHP كود :

Private Sub Command1_Click()
Clipboard.SetText ""
Text1.Text = ""
For X = 0 To List1.ListCount - 1
Text1.Text = Text1.Text & List1.List(X) & ", "
Next X
Clipboard.SetText Text1
End Sub


اليك هذا المثال ... 


تحياتى ..