سوال در باره لیست باکس در vb

[meisambandari]

سلام
من یه سوال داشتم در باره لیست باکس من یک لیست باکس دارم که درونش یه تعداد کلمات زیره هم ردیف شده اند و حالا میخواهم با زدن دکمه این کلماته درون لیست باکس را به درون تکست باکس بریزم طوری که کناره هم قرار بگیرند و میان هر کلمه یک علامت ~ قرار بگیرد خواهش میکنم راهنمایی کنید .

[Felony]

به ترتیب تک تک اعضای لیستتون رو بخونید و به Text اضافه کنید .


For i = 0 To List1.ListCount
Text1.Text = Text1.Text + "~" + List1.List(i)
Next i