انتقال ایتم های لیست باکس

[sina.lor.boy]

دوستان راهنمایی کنید راجب انتقال ایتم های لیست باکس به یک تکست باکس. که اگه رویه button کلیک شد تمام ایتم ها از لیست باکس به تکستباکس منتقل شوند . ممنون

[محمد آشتیانی]

سلام

فقط باید پراپرتی Multiline تکست باکس رو True کنی


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer

For i = 0 To ListBox1.Items.Count - 1
TextBox1.Text += ListBox1.Items(i).ToString & vbCrLf
Next
End Sub