$APPTYPE GUI


SUB Click
  '?"Click"
END SUB

CREATE Form AS QForm
  CREATE MainMenu AS QMainMenu
    CREATE MenuItem1 AS QMenuItem
      Caption = "Rapid-Q Menu"
      CREATE SubMenu2 AS QMenuItem
        CREATE SubMenu3 AS QMenuItem
          CREATE SubMenu4 AS QMenuItem
            OnClick = Click
          END CREATE
          CREATE SubMenu5 AS QMenuItem
          END CREATE
        END CREATE
      END CREATE
    END CREATE
    CREATE MenuItem2 AS QMenuItem
    END CREATE
    CREATE MenuItem3 AS QMenuItem
    END CREATE
  END CREATE
  CREATE CheckBox1 AS QCheckBox
    Caption = "Option 1"
    Top = 30
  END CREATE
  CREATE CheckBox2 AS QCheckBox
    Caption = "Option 2"
    Top = 55
  END CREATE
  CREATE CheckBox3 AS QCheckBox
    Caption = "Option 3"
    Top = 80
  END CREATE
  CREATE Radio1 AS QRadioButton
    Caption = "Radio 1"
    Left = 100
    Top = 30
  END CREATE
  CREATE Radio2 AS QRadioButton
    Caption = "Radio 2"
    Left = 100
    Top = 55
  END CREATE
  CREATE Radio3 AS QRadioButton
    Caption = "Radio 3"
    Left = 100
    Top = 80
  END CREATE
  ShowModal
END CREATE