نقل البيانات من listview الى textbox بشكل عرضي

السلام عليكم 

لا ادرى ان كنت فهمت سؤالك بشكل صحيح على كل حال استخدم التكرار For Each  لقراءه عناصر ال ListView

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        For Each item As ListViewItem In ListView1.Items
            TextBox1.Text = TextBox1.Text + "," + item.Text

        Next
    End Sub

اخي جزاك الله عني كل خير هذا ما اريده بالفعل , ولكنه يضع علامة " , "  قبل اول قيمة , والطبيعي ان تظهر بعد اول قيمة وليس قبلها 

فالكود الذي ارسلته لي يظهر التالي  : 

AA,BB,CC,DD,

  For Each item As ListViewItem In ListView1.Items
            TextBox1.Text = TextBox1.Text + "," + item.Text

        Next
        TextBox1.Text = TextBox1.Text.Substring(1)

قم بازاله , الاولى من التكست بوكس

او

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        For Each item As ListViewItem In ListView1.Items
            TextBox1.Text = TextBox1.Text + "," + item.Text

        Next
        TextBox1.Text = TextBox1.Text.Remove(0, 1)
    End Sub

بارك الله فيك يا اخي , تمت بنجاح , شكرا جزيلا