Break Off

$System= CreateObject("Kixtart.System")
If Not $System
   $nul= MessageBox("KiXforms Classic Not Installed This Script Will Now Close.","Error",16)
   Quit()
EndIf


:iniMessage	
	$form1 = $System.Form();
	$Form1.FormBorderStyle = 1 
	$Form1.MaximizeBox = 0  ;False
	$Form1.MinimizeBox = 0  ;False
	$Form1.ControlBox = -1  ;True
	$Form1.StartPosition = 1  ;FormStartPosition_CenterScreen
	$Form1.Size = $System.Size(625,260) ;(Width,Height)		
	
	$button1 = $form1.Controls.Button ()
	$button2 = $form1.Controls.Button ()
	$button1.Text = "Yes";
	$button1.Location = $System.Point (100, 200)
	$button2.Text = "No";
	$button2.Location = $System.Point (400, 200)
	
	
	$button1.DialogResult = $System.DialogResult.Yes
	$button2.DialogResult = $System.DialogResult.No
	
	$form1.Text = "MSL"


	$Label1 = $form1.Label()
	$Label1.BorderStyle = 0  ;FixedSingle
	$Label1.Font = $System.Font("Microsoft Sans Serif",14.25,1) ;Bold
	$Label1.Left = 10
	$Label1.Text = LoadIniPolicy()
	$Label1.Top = 10
	$Label1.Width = 600
	$Label1.Height = 150
	$nul = $form1.Controls.Add($Label1)

	$Label2 = $form1.Label()
	$Label2.BorderStyle = 0  ;FixedSingle
	$Label2.Font = $System.Font("Microsoft Sans Serif",14.25,1) ;Bold
	$Label2.ForeColor = $System.Color.FromName("Red")
	$Label2.Left = 10
	$Label2.Text = $strmsg2
	$Label2.Top = 150
	$Label2.Width = 600
	$Label2.Height = 50

	$nul = $form1.Controls.Add($Label2)

	$button1.default = true
	$button2.cancel = true
	$form1.OnLostFocus="ExitingApp()"
	
	$= $form1.ShowDialog()
$ReturnCode = SetFocus("MSL")


			If ($form1.DialogResult = $System.DialogResult.Yes)
			 ;$= $System.MessageBox.Show("AUP Agreed")
				ExitingToDeskTop
			Else
				ExitingApp
			EndIf		




Exit 0


;***************************************                QUIT       APPLICATION  AND SHUT DOWN PC        **********************************

Function ExitingApp


;$= $System.MessageBox.Show("Bye ...")

$= $System.MessageBox.Show("shutting you down")
		


endfunction
;*************************************************************************************************************************
;***************************************                QUIT       APPLICATION    GIVE USER ACCESS      **********************************

Function ExitingToDeskTop

$= $System.MessageBox.Show("Continue to Desktop ...")
quit()

endfunction

Break Off

$System= CreateObject("Kixtart.System")
If Not $System
   $nul= MessageBox("KiXforms Classic Not Installed This Script Will Now Close.","Error",16)
   Quit()
EndIf

$form1 = $System.Form()
$Form1.FormBorderStyle = 1
$Form1.MaximizeBox = 0 ;False
$Form1.MinimizeBox = 0 ;False
$Form1.ControlBox = -1 ;True
$Form1.StartPosition = 1 ;FormStartPosition_CenterScreen
$Form1.Size = $System.Size(625,260) ;(Width,Height)
$Form1.Text = "MSL"

$button1 = $form1.Controls.ToolButton()
$button1.Text = "Yes"
$button1.OnClick = "ExitingToDeskTop()"
$button1.Location = $System.Point(100, 200)

$button2 = $form1.Controls.ToolButton()
$button2.Text = "No"
$button2.OnClick = "ExitingApp()"
$button2.Location = $System.Point(400, 200)

;$Label1 = $form1.Label()
$Label1 = $form1.Controls.Add("Label")
$Label1.BorderStyle = 0 ;FixedSingle
$Label1.Font = $System.Font("Microsoft Sans Serif",14.25,1) ;Bold
$Label1.Left = 10
$Label1.Text = "Test text 1"
;$Label1.Text = LoadIniPolicy()
$Label1.Top = 10
$Label1.Width = 600
$Label1.Height = 150

;$Label2 = $form1.Label()
$Label2 = $form1.Controls.Add("Label")
$Label2.BorderStyle = 0 ;FixedSingle
$Label2.Font = $System.Font("Microsoft Sans Serif",14.25,1) ;Bold
$Label2.ForeColor = $System.Color.FromName("Red")
$Label2.Left = 10
$Label2.Text = "Test text 2"
;$Label2.Text = $strmsg2
$Label2.Top = 150
$Label2.Width = 600
$Label2.Height = 50

$button1.default = true
$button2.cancel = true

$Form1.Show()
$Form1.SetFocus()
$Form1.OnDeactivate = "ExitingApp()"

While $Form1.Visible
   $Nul = Execute($Form1.DoEvents)
Loop

Exit 0

;*************************************** QUIT APPLICATION AND SHUT DOWN PC **********************************
Function ExitingApp()
   $= $System.MessageBox.Show("shutting you down")
   $Form1.Hide()
Endfunction
;*************************************************************************************************************************

;*************************************** QUIT APPLICATION GIVE USER ACCESS **********************************
Function ExitingToDeskTop()
   $= $System.MessageBox.Show("Continue to Desktop ...")
   $Form1.Hide()
Endfunction 
;*************************************************************************************************************************