ریختن محتویات یک textbox در ارایه

[programmermp]

با سلام

چطوری می شه محتویات یک تکست باکس رو طوری توی یک ارایه رشته ای ریخت

که هر خونه از ارایه حاوی یک کاراکتر از متن موجود در تکست باکس باشه

با تشکر

[linux]

Dim c() As Char = Nothing
Dim i As Integer
c = TextBox1.Text.ToCharArray
For i = 0 To c.LongLength - 1
ListBox1.Items.Add(c(i))
Next