code:

---

break on
$=setconsole("hide")

;*************** Initiallize the form and it's Properties ****************
$root = createobject("KiXGUI.Desktop")
if $root=0
	copy "\\a06\logon\kixgui.dll" "%windir%"
	shell "regsvr32 %windir%\kixgui.dll /s"
	$root = createobject("KiXGUI.Desktop")
	endif
$form = $root.createform("form","")
$text = $form.addtextbox("text","Logon Script processing",10,15,270,20,,1)
$form.TitleBar		=0
$form.ShowInTaskbar	=0
$form.layered		=99
$form.width		=300
$form.height		=90
$form.left		=200
$form.top		=200
$form.TopMost		=1
$Progressbar=$form.Addprogressbar("progress",10,50,270,20)
$Progressbar.ProgressBarStyle=2
$Progressbar.maxprogress=30

; ************** Show the form now that it is built **********************
$form.visible=1
sleep 2

; ************** Increment the bar and refresh it ************************
for $loop = 1 to 30
	$Progressbar.currentprogress=$loop
	$text.caption="progress point $loop"
	$form.visible=1
	sleep 1
	next
$text.caption="Logon Script Complete"
$form.visible=1
sleep 2

; ************** fade away and clean up **********************
for $loop =99 to 1 step -1
	$form.layered	=$loop
	next
$form.visible=0
$root=0

---