listbox to clipboard

[Doug Anderson]

I'm using vba6 with quattro pro
and am new to visual basic. I'd like
to copy the contents of a listbox
(or combobox) to the clipboard but
just cant figure it out.
Help or suggestions would be appreciated.
Thanks,
Doug Anderson

[QWERTY]

To add it to the clipboard you could use this code:

Option Explicit
Dim I As Integer

Private Sub Command1_Click()
For I = 1 To List1.ListCount
If I = 1 Then
'//you can command this out
'//without this line VB adds an extra empty line to the Clipboard
Clipboard.SetText List1.List(I - 1)
Else
Clipboard.SetText (Clipboard.GetText & vbCrLf & List1.List(I - 1))
End If
Next I
End Sub

HTH


------------------
Visual Basic Programmer
------------------
PolComSoft
You will hear a lot about it.