Break On
$System = CreateObject("Kixforms.System")
If Not $System
   $nul= MessageBox("KiXforms.Net Not Initiated. This Script Will Now Close.","Error",16)
   Quit()
EndIf
$nul = $System.Application.EnableVisualStyles

$Form1 = $System.Form()
$Form1.Left = 0
$Form1.StartPosition = 0  ;FormStartPosition_Manual
$Form1.Size = $System.Size(317,213) ;(Width,Height)
$Form1.Text = "Form1"
$Form1.Top = 0

$TextBox1 = $System.TextBox()
$TextBox1.KeyPress = "DoSearch(TXTBox)"
$TextBox1.Left = 70
$TextBox1.Text = "TextBox1"
$TextBox1.Top = 50
$nul = $Form1.Controls.Add($TextBox1)

$Button1 = $System.Button()
$Button1.Click = "DoSearch(Button)"
$Button1.Left = 110
$Button1.Text = "Button1"
$Button1.Top = 70
$nul = $Form1.Controls.Add($Button1)

$Form1.Show  ;Displays the Form

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

Function DoSearch($source)
	If $source = "TXTBox" And $TextBox1.KeyPressEventArgs.KeyChar = Chr(13)
		? "Enter pressed in textbox. Searching....."
		;execute search function
	EndIf
	
	If $source = "Button"
		? "Clicked on button. Searching....."
		;execute search function
	EndIf
	
EndFunction