[Mohamed20]

عندى label و list of string

كود :

Dim test As New List(Of String)

       test.Add("SSSSSSSSSSSSSSSS")
       test.Add("SSSSSSSSSSSSSSSS2")
       test.Add("SSSSSSSSSSSSSSSS3")
       test.Add("SSSSSSSSSSSSSSSS4")
       test.Add("SSSSSSSSSSSSSSSS5")
       test.Add("SSSSSSSSSSSSSSSS6")

اريد اضافة هذه items فى label 

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       For i = 0 To test.Count - 1
           Label1.Text = vbNewLine & test(i)
       Next
   End Sub

لاكن الكود يدخل اخر item فقط