;region Setup Variables
$Version = "Build(1.0.0.1)"
$System = CreateObject("Kixtart.System")
;endregion
Break on
If Not $System
$= MessageBox("KiXforms Not Initiated. This Script Will Now Close.","Error",16)
Quit()
EndIf
;region Main Form
$Form = $System.Form()
$Form.Cursor = "C:\Transparent Currsor.cur"
$Form.Text = "Basic Form $Version"
$Form.Size = 600,400
$Form.Left = $System.Screen.WorkingArea.Width - $Form.Width
$Form.Top = $System.Screen.WorkingArea.Height - $Form.Height
$Form.SysMenu = 0
$Form.Cursor = "C:\Transparent Currsor.cur"
; Clock
$CurrentTime=@Time
$Clock = $Form.Controls.Label($CurrentTime,10,15,55,20)
$Clock.Alignment=2
$Clock.Enabled=0
$Clock.BackColor=$Form.BackColor
$Close_Button = $Form.Controls.Button()
$Close_Button.Text = "CLose"
$Close_Button.OnClick = "Close_Button_Click()"
$Close_Button.Center
$Form.Show()
;region Startup
;call some function
;endregion
While $Form.Visible
$Error = Execute($Form.DoEvents(1))
$Clock.Text = @Time
Loop
Exit 0
;endregion
;region Startup Functions
;endregion
;region Common Functions
Function Close_Button_Click()
Quit()
EndFunction
;endregion