code:

---

;
; KIXTART 4.0
; KIXFORMS BUILD 32
;
 
Break On
 
$Form = CreateObject("Kixtart.Form")
 
If Val($Form.Build) < 32
 ?"This script requires Kixforms Build 32" Quit()
EndIf
 
$Form.FontSize = 10
$Form.Size = 250,300
 
$Label = $Form.Label
$Label.Size = 230,20
$Label.Location = 5,15
$Label.FontBold = 1
$Label.Text = "I WANT MORE"
$Label.Alignment = 2
$Label.BackColor = 255,255,255
 
$Opt1 = $Form.RadioButton("Pizza")
$Opt1.Top = $Label.Bottom + 20
$Opt1.Left = 20
$Opt1.Value = TRUE
 
$Opt2 = $Form.RadioButton("Sex")
;$Opt2.Size = 100,20
$Opt2.Top = $Opt1.Bottom + 8
$Opt2.Left = 20
 
$Opt3 = $Form.RadioButton("Beer")
$Opt3.Top = $Opt2.Bottom + 8
$Opt3.Left = 20
 
$Opt4 = $Form.RadioButton("Money")
$Opt4.Top = $Opt3.Bottom + 8
$Opt4.Left = 20
 
$Button = $Form.Button("Come On!!!")
$Button.Center
$Button.Top = $Opt4.Bottom + 20
$Button.OnClick = "Click()"
 
Function Click()
 
 ; Exit if button text set to "Exit"
 
 If $Button.Text = "Exit"
  Quit()
 EndIf
  
; Change our message ...
 
 $Label.FontSize = 10
 $Label.Text = "OK, OK, I WANT MORE"
 
 ; Set Option 3 as the start of a new option group ... 
 
 $Opt3.TabGroup = TRUE 
 
 ;
 ; Now re-initialize option values ...
 ;
 
 $Opt1.Value = 1
 $Opt2.Value = 0
 $Opt3.Value = 1
 $Opt4.Value = 0

 ; Draw some boxes to seperate our new options
 ; groups - look ma, no frames.
 
 $Form.Rectangle(15,50,210,75)
 $Form.Rectangle(15,124,210,75)
 
 ; Set button to exit on next go-around ...
 
 $Button.Text = "Exit"
 
EndFunction
 
$Form.Center
$Form.Show
While $Form.Visible
 $=Execute($Form.DoEvents)
Loop
 
Exit 1

---