Dim lb As WinForm.ListBox = e.Form.Controls("ListBox1") Dim sz(10) As String Dim lst As new List(of String) lst.AddRange(lb.Items.ToArray) 'For Each aa As String In lb.items 'lst.Add(aa) 'Next sz = lst.ToArray Dim st As String For i As Integer = 0 To sz.Length-1 st=st & " " & sz(i) Next Dim kk As WinForm.TextBox = e.Form.Controls("TextBox1") kk.text =st