Ive a kixforms question, how would I add an exit button to the following?
Code:
 SETCONSOLE("HIDE")
CLS
if @inwin = "1"
  shell "%COMSPEC% /c %WINDIR%\System32\Regsvr32 /s %WINDIR%\SYSTEM\KiXFORMS.dll"	
else
  shell "%COMSPEC% /c %WINDIR%\System\Regsvr32 /s %WINDIR%\SYSTEM\KiXFORMS.dll"	
endif

break on

$Form = createobject("KiXtart.Form")
$Form.Size = 400,200
$Form.Center
$Form.Caption="Christmas Message"
$Form.BackColor = 255,0,0
$Form.Fontsize = 8
$Form.Fontbold = 1
$Form.Show
$Form.Visable = 1



$Multi = $Form.TextBox("",55,30,190,100)
$Multi.MultiLine = True
$Multi.Scrollbars = 0
$Multi.ForeColor = 25,115,9
$Multi.caption = "Hi, " + @fullname + "." + @crlf + @crlf
		  + "The ICT department wish you a "  + @crlf + "very Merry Christmas and a " + @crlf 
		  + "Happy New Year! :-)" + @crlf 

$Image = $Form.Image("\\tom\netlogon\santa.bmp",270,30,60,67)

Play File "\\harry\netlogon\chris.wav"

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

Exit 1


Thanks

Steve
_________________________
Dont worry because a rival imitates you. As long as they follow in your tracks they cant pass you!