Create Menu As QMainMenu
   Parent = LPT
   Create MPort As QMenuItem
     Caption = "&Port"
     Create MI378 As QMenuItem
      Caption = "&&H378"
      Tag     = 888 '&H378
      RadioItem = True
      OnClick = SetPortAddress
     End Create
     Create MI278 As QMenuItem
      Caption = "&&H278"
      Tag     = 632 '&H278
      RadioItem = True
      OnClick = SetPortAddress
     End Create
     Create MI3BC As QMenuItem
      Caption = "&&H3BC"
      Tag     = 956 '&H3BC
      RadioItem = True
      OnClick = SetPortAddress
     End Create
     Create N1 As QMenuItem
      Caption = "-"
     End Create
     Create MIExit As QMenuItem
      Caption = "&Exit"
      OnClick = FormClose
     End Create
    End Create
    Create MAbout As QMenuItem
     Caption = "&About"
     Create MISetting As QMenuItem
      Caption = "&Setting"
      OnClick = ShowSettings
     End Create
     Create MIHelp As QMenuItem
      Caption = "&Help"
      OnClick = ShowHelp
     End Create
     Create N2 As QMenuItem
      Caption = "-"
     End Create
     Create MISoftware As QMenuItem
      Caption = "&Software"
      OnClick = ShowAbout
     End Create
   End Create
End Create