code:

---

;Used bbChecker as a source to test steal focus thingie
$m = CreateObject("kixtart.form")
$m.caption = "Steal Focus - Main"
$m.width = 200
$m.height = 100
$m.center
$fbe = $m.button("Exit",60,50,80,20)
$fbe.onclick = "$$m.visible = 0"
$Loop = $m.timer(5000)
$Loop.ontimer="$$loop.interval=0 update() $$loop.interval=2000"
$m.visible=1
While $m.visible $x=Execute($m.doevents(1)) Loop


Function update()
$p = CreateObject("kixtart.form")
$p.caption = "Steal Focus - Child"
$p.width = 200
$p.height = 100
$p.center
$p.top=$p.top+100
$pfbe = $p.button("Exit",60,50,80,20)
$pfbe.onclick = "$$p.visible = 0"
$pLoop = $p.timer(2000)
$pLoop.ontimer="$$ploop.interval=0 $$p.visible=0"
$p.show(2)
$p.ShowInTaskbar = 0
$p.show
$p.TopMost = 1
While $p.visible $y=Execute($p.doevents) Loop
EndFunction  

---

code:

---

;You may modify everything in this file.
;slider is loaded on every post if you have slider enabled
;input values are predefined but everything else you can touch:
; - $title
; - $url
;	enjoy ;)

$title="some text to get the slider wide"
$url="www.gwspikval.com"
sleep 5 ; to let you fire IE window up before showing anything...

$fake=CreateObject("Kixtart.Form")
$fake.show(2)
$fake.hide
$t=0
$w=8*len($title)+4
$d = 1
$p = CreateObject("Kixtart.Form")
$p.fillstyle = 0
$p.Height = 20
$p.Width = $w
$p.fontsize = 10
$p.fontname = "Courier New"
$p.forecolor = 0
$p.fontbold = 1
$p.BorderStyle = 0
$p.backcolor = $p.RGB(255,255,0)
$p.Top = $t
$p.Left = 50
$l = $p.hyperlink($title,2,2,$w,18)
;$l.Backcolor = $p.RGB(255,255,0)
$l.value = $url
$l.onclick="$$p.visible=0"
$c = $p.Timer(30)
$c.OnTimer = "
	 If $$d=1
	  $$p.Top=$$p.Top+1
	  If $$p.top>22
	   $$c.Interval=3000
	   $$d=0
	  EndIf
	 Else
	  if $$d=2
	   $$c.Interval=30
	   $$p.Top=$$p.Top-1
	   If $$p.top=0
	    $$c.Enabled=0
	    $$p.Hide
	   EndIf
	  else $$d=2
	  endif
	 EndIf
	"
$p.TopMost = 1
$p.show
While $p.Visible $=execute($p.DoEvents) Loop

---