code:

---

$m = CreateObject("kixtart.form")
$m.caption = "Steal Focus - Main"
$m.width = 200
$m.height = 100
$m.center
$text = $m.richtextbox(,5,5,180,80)
$img=$text.image()
$img.BorderStyle = 0
$img.Location = 10,10
$img.OnClick = "$$ = $$m.msgbox('I will continue sticking my tongue out','You clicked me !!!',16)"
$img.Picture = @scriptdir+"\tongue1.bmp"

$timer=$m.timer(1000)
$timer.ontimer="swap()"
$m.visible=1
While $m.visible $x=Execute($m.doevents) Loop

function swap()
 $current=$current+1
 $img.picture=@scriptdir+"\tongue"+$current+".bmp"
 if $current=3 $current=0 endif
endfunction

---