Home > Available Help Files > PC-DMIS BASIC Language > Language Reference A – Z > CheckBox Statement > Example - CHECKBOX Statement
Current Help File: PC-DMIS Basic (View Core Help)
Example - CHECKBOX Statement
Sub Main()
Begin Dialog Name1 60, 70, 160, 50, "ASC - Hello"
CHECKBOX 42, 10, 48, 12, "&CHECKME", .checkInt
OKBUTTON 42, 24, 40, 12
End Dialog
Dim Dlg1 As Name1
Dialog Dlg1
If Dlg1.checkInt = 0 Then
Q = "You didn't check the box."
Else
Q = "You checked the box."
End If
MsgBox Q
End Sub