Sub Main() Begin Dialog DialogName1 60, 70, 160, 50, "ASC - Hello" CHECKBOX 42, 10, 48, 12, "", .checkInt OKBUTTON 42, 24, 40, 12 End Dialog Dim Dlg1 As DialogName1 Dialog Dlg1 If Dlg1.checkInt = 0 Then Q = "didn't check the box." Else Q = "checked the box." End If MsgBox "You " & Q End Sub