how can i loop through all listbox items?

i found this in msdn:


VB Code:
  1. dim i as integer
  2. dim li as listitem
  3.  
  4. for each li in listbox1.items
  5.  i+= 1
  6.   'code
  7. next

i'm getting an error on
dim li as listitem

listitem is not recognized;