It's probably very simple but ....

I'm trying to write a loop that goes through a list box, but i don't know how to get the number of rows contained in the listbox.

for example:
for r = 1 to (this part is where i need help)
listrow = val(thisform.list1.list(r,1))
go val(thisform.list1.list(r,1))
delete
=messagebox(alltrim(str(listrow)) + " deleted")
endfor

thanks