VB Code:
  1. Dim i As Long

  2.  
  3. For i = 0 To List1.ListCount - 1

  4.     'do whatcha gotta do through each loop here.

  5. Next