Example
| Sub Main Begin Dialog UserDialog 200,120 Text 10,10,180,15,"Please push the OK button" OptionGroup .options OptionButton 10,30,180,15,"<span style='color: #0000FF; font-weight: bold;'>Option</span> &0" OptionButton 10,45,180,15,"<span style='color: #0000FF; font-weight: bold;'>Option</span> &1" OptionButton 10,60,180,15,"<span style='color: #0000FF; font-weight: bold;'>Option</span> &2" OKButton 80,90,40,20 End Dialog Dim dlg As UserDialog dlg.options = 2 Dialog dlg ' show dialog (wait for ok) Debug.Print dlg.options End Sub
|