code:

---

;
; KIXTART 4.0
; KIXFORMS BUILD 2.0.4.32
;
 
Break On
 
$Form = CreateObject("Kixtart.Form")
 
$Form.FontSize = 10
$Form.Size = 250,335
$Form.ForeColor = 0,0,200
 
$Form.PrintXY(10,30,"Please choose a color:")
 
$RedOption = $Form.OptionButton
$RedOption.Text = "Red"
$RedOption.Top = 60
$RedOption.Left = 20
$RedOption.TabGroup = TRUE
$RedOption.ForeColor = 200,0,0
 
$GreenOption = $Form.OptionButton
$GreenOption.Text = "Green"
$GreenOption.Top = $RedOption.Bottom + 5
$GreenOption.Left = 20
$GreenOption.ForeColor = 0,200,0
 
$Form.PrintXY(10,140,"Please choose a number:")
 
$OneOption = $Form.OptionButton
$OneOption.Text = "One"
$OneOption.Top = 170
$OneOption.Left = 20
$OneOption.Value = TRUE
 
$TwoOption = $Form.OptionButton
$TwoOption.Text = "Two"
$TwoOption.Top = $OneOption.Bottom + 5
$TwoOption.Left = 20
 
$Button = $Form.Button
$Button.Text = "Exit"
$Button.Center
$Button.Top = 260
$Button.OnClick = "Click()"
 
Function Click()
 
  Quit()
 
EndFunction
 
;
; Initialize our options ..
;
 
$RedOption.Value = TRUE
$OneOption.TabGroup = TRUE
 
$Form.Center
$Form.Show
While $Form.Visible
 $=Execute($Form.DoEvents)
Loop
 
Exit 1

---