I'm playing around with a slider for myself:

code:
Break on 

$runie = "run '"+ReadValue("HKEY_CLASSES_ROOT\htmlfile\shell\open\command","")+" "

$d = 1
$h = 22
$h1 = 18
$w = 300
;$t=700
$p = CreateObject("Kixtart.Form")
$p.height = 0
$p.width = $w + 6
$p.fontsize = 10
$p.fontname = "helvetica"
$p.forecolor = 0
$p.fontbold = 0
$p.BorderStyle = 0
$p.backcolor = $p.RGB(255,255,0)
$p.Top = $t
$p.Left = $p.screen.width-$p.width-20
$p.minbutton=0
$p.maxbutton=0

;$q = $p.label("",0,0,$p.width,3*$h1+3)
;$q.backcolor=$p.rgb(255,255,0)
;$q.borderstyle=1
$poplabel = $p.label($sc,4,2+$h1/2,$w-2,2*$h1)
$poplabel.backcolor = $p.rgb(255,255,0)
$poplabel.borderstyle = 0
$poplabel.alignment = 2
$p.onmousemove="$$poplabel.fontbold=0 $$poplabel.fontunderline=0"
$poplabel.onmousemove="$$poplabel.fontbold=0 $$poplabel.fontunderline=1"
$poplabel.onmouseup="$runie "+Chr(34)+$scv+Chr(34)+"' sleep 0.5 $$p.visible=0 "

$c = $p.Timer(20)
$c.OnTimer = "
If $$d=1
$$p.Top=$$p.Top - 1
$$p.height=$$p.Height+1
If $$p.top<($$t-3*$h1)
$$c.Interval=3000
$$d=0
EndIf
Else
If $$d=2
$$c.Interval=20
$$p.Top=$$p.Top + 1
$$p.height=$$p.Height-1
If $$p.top>$$t
$$c.Enabled=0
$$p.Hide
EndIf
Else
$$d=2
EndIf
EndIf
"
$p.height=0
$p.ShowInTaskbar = NOT 1
$p.Show
$p.ShowInTaskbar = NOT 1
$p.TopMost = 1

While $p.Visible
$=Execute($p.DoEvents)
Loop

If I enable the q label, I can't click the link in the slider...

- - Me is missing something - -
_________________________
Greetz,
Patrick Rutten

- We'll either find a way or make one...
- Knowledge is power; knowing how to find it is more powerful...
- Problems don't exist; they are challenges...