code:

---

; New slider.kix for bbChecker
 
$Popup = CreateObject("Kixtart.Form")
 
$h = 120
$w = 300
 
$Popup.BorderStyle     	= 0
$Popup.ScaleHeight     	= 0
$Popup.ScaleWidth      	= $w
$Popup.ShowInTaskbar   	= False ; Not ready yet !
$Popup.TopMost		= True
 
$popLabel 			= $Popup.Label(@crlf+@crlf+@crlf+@crlf+$sc,,,$w,$h)
$popLabel.BACKCOLOR		= $Popup.RGB(255,255,255)
$popLabel.BorderStyle		= 4
$popLabel.Alignment		= 2
 
$Timer = $Popup.Timer(10)
$Timer.OnTimer = "Timer_Timer()"
 
$Popup.Top 		= $Popup.screen.height  - (($b-3)+$Popup.Height)
$Popup.Left		= $Popup.Screen.Width - ($w+15)
$Popup.Show
$DirectionIsUp = 1
 
While $Popup.Visible
 	$=Execute($Popup.DoEvents)
Loop
 	
Exit(0)
 
Function Timer_Timer()
	$Timer.Interval = 10
	If $DirectionIsUp
		$Popup.Height = $Popup.Height + 3
		$Popup.Top = $Popup.Top - 3
		If $Popup.Height => $h
			$Popup.Height = $h
			$Timer.Interval = 5000
			$DirectionIsUp = 0
			play "256t1d500f"
		EndIf
	Else
		$Popup.Height = $Popup.Height -3
		$Popup.Top = $Popup.Top + 3
		If $Popup.Top >= ($Popup.Screen.Height-$b)
			$Timer.Enabled = 0
			$Popup.Hide
		EndIf
	EndIf
EndFunction

---