تفضلى اختى افضل طريقة هى استخدام timer
اجعلى خصية Enabled = true
للتكرار
اما اذا كان textbox multi line بمعنى تريدى ان تنسخى كامل العناصر التى فى Listbox يمكنك استخدام هذا الكود
اجعلى خصية Enabled = true
كود :
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
TextBox1.Text = ListBox1.SelectedItem
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If ListBox1.SelectedIndex = ListBox1.Items.Count - 1 Then
Timer1.Stop()
Else
ListBox1.SelectedIndex += 1
End If
End Subكود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
textbox1.text = string.empty ' او textbox1.text ="" ' او textbox1.text.clear
Listbox1.SelectedIndex =0
timer1.start()
end subاما اذا كان textbox multi line بمعنى تريدى ان تنسخى كامل العناصر التى فى Listbox يمكنك استخدام هذا الكود
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
For i As Integer = 1 To ListBox1.Items.Count - 1
TextBox1.Text = ListBox1.Items(i).ToString
Next
End Sub

