#singleinstance force
SetworkingDIr %A_ScriptDir%
Apple := TRUE
Orange := FALSE
Banana := TRUE
gosub Changed

Gui, Add, Checkbox, % (Apple ? "Checked" : "") " vApple gChanged", Apples
Gui, Add, Checkbox, % (Orange ? "Checked" : "") " vOrange gChanged", Oranges
Gui, Add, Checkbox, % (Banana ? "Checked" : "") " vBanana gChanged", Bananas
Gui, Add, Button, gShow, Show The Fruit
Gui, Show, w200 h100, Fruit Basket
Return

Changed:
Gui,Submit,NoHide
Array := []
Apple ? Array["Apple"] := "."
Orange ? Array["Orange"] := "."
Banana ? Array["Banana"] := "."
Return

Show:
for fruit, in array
	msgbox % fruit
Return