Menu Object

Menu object applies only window based applications. Default Method For Menu is "Select"

Ex:

Window("Notepad").WinMenu("Menu").Select "File;New Ctrl+N"

Can we do anything more with menu's?
 1. Get Menu list from Application
 2. Get Menu Items from Menu

'Get menu list from application

Dim cnt

Dim n

Dim iPath

cnt = Window("Notepad").WinMenu("Menu").GetItemProperty("", "SubMenuCount") 'Get total Menus count From application

For n = 1 To cnt 

iPath = Window("Notepad").WinMenu("Menu").BuildMenuPath(itemPath, n) 

msgbox Window("Notepad").WinMenu("Menu").GetItemProperty(iPath, "Label")

Next

'Get menu Items from menu

Dim cnt

Dim n

Dim iPath

cnt = Window("Notepad").WinMenu("Menu").GetItemProperty("File", "SubMenuCount") 'Get menu items count in "File" Menu

For n = 1 To cnt 

iPath = Window("Notepad").WinMenu("Menu").BuildMenuPath("File", n) 

msgbox Window("Notepad").WinMenu("Menu").GetItemProperty(iPath, "Label")

Next