sub show scan m$ = "fill black; down" for i = 0 to number m$ = m$ + ";color ";kl$(i) m$ = m$ + ";backcolor ";kl$(i) m$ = m$ + ";place ";x(i)-size(i);" ";y(i)-20 m$ = m$ + ";boxfilled ";x(i)+size(i);" ";y(i)+20 next i #m m$ CallDLL #kernel32, "Sleep" _ , 20 As long _ , ret As void end sub