code:

---

Break On
 
$Form = CreateObject("Kixtart.Form")
$Form.FontSize = 12
$Form.Size = 300,300
 
$TextBox1 = $Form.TextBox
$TextBox1.Center
$TextBox1.Top = 20
$TextBox1.OnChange = "TextBox_Change()"
 
$TextBox2 = $Form.TextBox
$TextBox2.Center
$TextBox2.Top = $TextBox1.Bottom + 20
$TextBox2.OnChange = "TextBox_Change()"
 
$TextBox3 = $Form.TextBox
$TextBox3.MultiLine = TRUE
$TextBox3.Size = $Form.ClientWidth-20,100
$TextBox3.Center
$TextBox3.Top = $TextBox2.Bottom + 50
 
$Form.PrintXY(30,25,"To:")
$Form.PrintXY(30,75,"About:")
 
$Form.Center
$Form.Show
$TextBox1.SetFocus
 
While $Form.Visible
 $=Execute($Form.DoEvents)
Loop
  
Exit 1
 
Function TextBox_Change()
 
 $TextBox3.Text =
	"Message to "
	+ $TextBox1.Text
	+ " about " 
	+ $TextBox2.Text
	+ ". Lets do it!"
 
EndFunction

---