Copy ListBox to Clipboard in VB.NET, C#, and VB6

Here is a function I have written in VB.NET, C#, and VB6 to copy the contents of a ListBox to the Windows Clipboard. If you are interested in copying a ListView to the clipboard, see this posting.


VB.NET:

Imports System.text

... 

Public Sub CopyListBoxToClipboard(ByVal lb As ListBox) 

Dim buffer As New StringBuilder 

     For i As Integer = 0 To lb.Items.Count - 1 
          buffer.Append(lb.Items(i).ToString) 
          buffer.Append(vbCrLf) 
     Next 

     My.Computer.Clipboard.SetText(buffer.ToString) 

End Sub 

C#:

using System.Text;

...

public void CopyListBoxToClipboard(ListBox lb)
{
     StringBuilder buffer = new StringBuilder();

     for (int i = 0; i < lb.Items.Count; i++)
     {
          buffer.Append(lb.Items[i].ToString());
          buffer.Append("\n");
     }

     Clipboard.SetText(buffer.ToString());
}

VB6:

Public Sub CopyListBoxToClipboard(lb As ListBox)

    Dim buf As String
           
    Dim i As Long

    For i = 0 To lb.ListCount - 1
   
            buf = buf + lb.List(i)
       
            buf = buf + vbCrLf
      
    Next
 
    Clipboard.Clear
    Clipboard.SetText buf

End Sub