[الطالب]

سلام

جرب هذه

كود :

Dim txt As String = String.Join(vbNewLine, ListBox2.Items.Cast(Of String)().ToList)

'TextBox1.Text = txt

If txt <> "" Then
    Clipboard.SetText(txt)
    MsgBox("تم النسخ في الحافظة")
Else
    MsgBox("لا يوجد نص لنسخه")
End If

موفقين