şimdide
bütüm listelerde aynı şeyi yapmam lazım

liste isimleri
liste0, liste2, liste4............liste46
0 - 46 arasında çift sayılar
lazim olan kod
----------------------
for r = 0 to 46 step 2

for each ctl in me.liste""r".ItemsSelected
me.liste"r".selected(ctl)=false
next
next r
--------------
bu kodu nasıl yazabilirim
dıştaki for döngüsünde
liste isimleri 0-46 kadar ikişerli artacak
teşekkürler