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.show
$timer=$m.timer(500)
$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

---