Example
| Sub Main Begin Dialog UserDialog 200,120 Text 10,10,180,15,"Please push the OK button" CheckBox 10,25,180,15,"&Check box",.Check OKButton 80,90,40,20 End Dialog Dim dlg As UserDialog dlg.Check = 1 Dialog dlg ' show dialog (wait for ok) Debug.Print dlg.Check End Sub
|