Hi all i got a form that i need to process listbox items on by one automatically by sending it to a textbox but when i click command2 i see the highlight moves so fast and reaches last item in my listbox without allowing my textbox to process all listbox items. Could any one tell me how to solve this problem .Thanks

VB Code:
  1. Private Sub Command2_Click()

  2.  
  3. Dim i As Long

  4. For i = 0 To List1.ListCount - 1

  5.    Text2 = List1.List(i)

  6.    List1.Selected(i) = True

  7.  
  8. Next

  9.  
  10. End Sub

  11.  
  12.  
  13. Private Sub Form_Load()

  14.  
  15.   List1.AddItem "item1"

  16.     List1.AddItem "item2"

  17.     List1.AddItem "item3"

  18.     List1.AddItem "item4"

  19.     List1.AddItem "item5"

  20.      List1.AddItem "item6"

  21.   List1.AddItem "item7"

  22.   List1.AddItem "item8"

  23.   List1.AddItem "item9"

  24.  
  25. End Sub