Sub Main
Begin Dialog ButtonSample 16,32,180,96,"OK and Cancel"
OKButton 132,8,40,14
CancelButton 132,28,40,14
End Dialog
Dim Dlg1 As ButtonSample
Button = Dialog (Dlg1)
End Sub
Every custom dialog box must contain at least one "command" button - an OK button or a Cancel button. Enable includes separate dialog box definition statements for each of these two types of buttons.