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

---