srQan adlı üyeden alıntı: mesajı görüntüle 
  Dim kopyalanacak As String = String.Empty
        For i = 0 To ListBox1.Items.Count - 1
            kopyalanacak &= ListBox1.Items(i) & " "
        Next
        Clipboard.SetText(kopyalanacak)
    End Sub
Bu şekilde listbox içerisindeki tüm ifadeleri tek satır haline getirip kopyalayabilirsin.
hocam sana cok teşekkürler + rep