Paul Edstein
Thanks for your instruction. I did try and try and at last I got the code as your instruction.
Greg Maxey: According Paul Edstein's instruction and your code make me easy to understand me. Hope I will go forward with your helping hand.
Sometimes some easy thing is going complex. I hope it will be more easier day by day. Wish for me.
Sorry for my poor English
Thanks and Thanks.
Subrota
Code:
Dim mySym As String
Dim i As Long
Dim strClipText As DataObject
Dim strInputText As String
For i = 0 To ListBox2.ListCount - 1
mySym = mySym & ListBox2.List(i)
mySym = mySym & vbCrLf
Next
Set strClipText = New DataObject
strInputText = mySym
strClipText.SetText strInputText
strClipText.PutInClipboard