Switches are a modern alternative to a checkbox.

Dim switch1 As ABMSwitch
switch1.Initialize(page, "switch1","On", "Off", True, "")
page.Cell(2,1).AddComponent(switch1)

Dim switch2 As ABMSwitch
switch2.Initialize(page, "switch2","On", "Off", false, "")
switch2.Enabled=False
page.Cell(3,1).AddComponent(switch2)
Sub switch1_Clicked()
   Dim checked As String
   Dim switch1 As ABMSwitch = page.Component("switch1")
   If switch1.State Then
      checked= "On"
   Else
      checked= "Off"
   End If
   Dim myTexts, myReturns As List
   myTexts.Initialize
   myReturns.Initialize
   myToastId = myToastId + 1
   page.ShowToast("toast" & myToastId, "toastred", "Switch is " & checked, 5000, myTexts, myReturns)
End Sub