Sub Globals
Private CheckBox1 As CheckBox
Private CheckBox2 As CheckBox
Private CheckBox3 As CheckBox
Private CheckBox4 As CheckBox
Private CheckBox5 As CheckBox
Public boxes As Map
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout1")
boxes.Initialize
boxes.Put("A",CheckBox1)
boxes.Put("B",CheckBox2)
boxes.Put("C",CheckBox3)
boxes.Put("D",CheckBox4)
boxes.Put("E",CheckBox5)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub CheckBox_CheckedChange(Checked As Boolean)
Dim chk As CheckBox = Sender
If Checked Then
For Each box As CheckBox In boxes.Values
If box <> chk Then
box.Checked = False
End If
Next
End If
End Sub