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