[أسامة]

تفضلى اختى افضل طريقة هى استخدام timer 

اجعلى خصية 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