Private Sub CopyListboxItemsToClipBoard(ByVal lst As ListBox)
        Dim sb As New System.Text.StringBuilder
 
        For index As Integer = 0 To lst.Items.Count - 1
            sb.AppendLine(lst.Items(index).ToString)
        Next
 
        My.Computer.Clipboard.SetText(sb.ToString)
 
        sb = Nothing
    End Sub