Use checkboxes when looking for yes or no answers.

//create checkboxes
Dim chk1 As ABMCheckbox
chk1.Initialize(page, "chk1", "Checkbox starting unchecked", False, "")
page.Cell(2,1).AddComponent(chk1)

Dim chk2 As ABMCheckbox
chk2.Initialize(page, "chk2", "Checkbox starting checked", True, "")
page.Cell(3,1).AddComponent(chk2)

Dim chk3 As ABMCheckbox
chk3.Initialize(page, "chk3", "Checkbox disabled", True, "")
chk3.Disabled = True
page.Cell(4,1).AddComponent(chk3)

Dim chk4 As ABMCheckbox
chk4.Initialize(page, "chk4", "Checkbox filled in", True, "")
chk4.IsFilled = True
page.Cell(5,1).AddComponent(chk4)
Sub chk1_Clicked()
   Dim checked As String
   Dim chk1 As ABMCheckbox = page.Component("chk1")
   If chk1.State Then
      checked= "checked"
   Else
      checked= "unchecked"
   End If
   Dim myTexts, myReturns As List
   myTexts.Initialize
   myReturns.Initialize
   myToastId = myToastId + 1
   page.ShowToast("toast" & myToastId, "toastred", "Checkbox is " & checked, 5000, myTexts, myReturns)
End Sub