stoppa loop med knappklick?

Hur gör man för att stoppa en loop när man klickar på en command button?

Jag har en loop som ska fungera som en slide-show. Jag har några bilder som ska blädras fram, och man ska kunna stoppa detta genom att trycka på en knapp..

------------------
it's only them..

I loopen frå du skriva "doevents", detta gör att loopen inte hänger programmet utan även kollar av förändringar som är gjorda, knapp-tryckningar m.m.

Ex:
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">
private blnCancel as boolean

private sub form_load()
do
doevents
if blnCancel = true then exit do
loop
end sub

private sub command1_click()
blnCancel = true
end sub

------------------
Fredrik Klarqvist
f.klarqvist@spray.se
http://server.webwerkstaden.se/fredde/

tackar!

------------------
it's only them..