code:

---

$=createobject("kixtart.form")
$.size=$.screen.width,40
$.left=0
$.top=0
$.borderstyle=5
$text="some text scrolling around like marquee..."
$looper=$.timer(100)
$looper.ontimer="mover"

$.show
while $.visible $eh=execute($.doevents) loop

function mover()
$.backcolor=$.backcolor
$.printxy($.width-$counter,5,$text)
$counter=$counter+3
if $counter>0.9*$.fontsize*len($text)+$.width
 $counter=0
endif
endfunction

---