ziemlich einfach, man nehme ein Datenfeld, oder array Bild  

dim variable (10) as byte
dim merker as byte

do
incr merker
variable(merker)= was auch immer
loop until merker=10