Aşağıdaki gibi iç içe iki döngü yapacaksınız. böylece olacak.
Denermisiniz. kodları denemeden yazıyorum inceleyerek dönüş yapınız.
dim listler, ctl as variant
for each listler in me.controls
if listler.controltype=aclistbox then
for each ctl in listler.ItemsSelected
me.listler.selected(ctl)=false
next
end if
next