REM SetMenu Example

Sub Menus_Load
    Dim Menu
    Menu = Array("File", "Edit", "Help")
    SetMenu "Titlebar", Menu
    Menu = Array("&New" & vbTAB & "Ctrl+n||New", _
      "&Open" & vbTAB & "Ctrl+o||Open", _
      "&Save" & vbTAB & "Ctrl+s||Save", _
      "-", _
      "&Recent Files||Recent", _
      "-", _
      "E&xit" & vbTAB & "Alt+F4||Exit")
    SetMenu "File", Menu
    Menu = Array("&1 File 1||RF1", _
      "&2 File 2||RF2", "&3 File 3||RF3", _
      "&4 File 4||RF4")
    SetMenu "Recent", Menu
    SetMenu "Edit", Array("Cut", "Copy", "Paste")
    Menu = Array("About SETMENU Example...||ASE")
    SetMenu "Help", Menu
End Sub

Sub New_Click()
  MsgBox "New"
End Sub

Sub Open_Click()
  MsgBox "Open"
End Sub

Sub ASE_Click()
    MsgBox "This sample shows how to " & vbcrlf & "use the SetMenu statement."
End Sub