REM ***** BASIC ***** Sub InitEvents call ClickCutTest End Sub Sub ClickSaveTest if not OptionsDlg.cbSaveTest.Value then OptionsDlg.cbOpenTest.Value = false OptionsDlg.cbOpenTest.Enabled = false else OptionsDlg.cbOpenTest.Enabled = true end If End Sub Sub ClickCutTest if not OptionsDlg.cbCutTest.Value then OptionsDlg.cbPasteTest.Value = false OptionsDlg.cbPasteTest.Enabled = false else OptionsDlg.cbPasteTest.Enabled = true end If End Sub Sub PressCancel gDlgState = cDlgCancel end Sub Sub PressOk gDlgState = cDlgOk end Sub Sub PressTest gOptionsDialog.EndExecute() gDlgState = cDlgStartTest end Sub