I am using the following code to access menu:
Public Sub clickMenu(mMenu, sMenu, cMenu, Caption)
dim p1, page, mobj, sobj, cobj, PropmArray, PropsArray, PropcArray, ValuesmArray, ValuessArray, ValuescArray
Set p1 = Sys.Process("iexplore")
Set page = p1.Page("*")
PropmArray = CreateVariantArray(0, 1) 'Main Menu Array
PropsArray = CreateVariantArray(0, 1) 'Sub Menu Array
PropcArray = CreateVariantArray(0, 1) 'Child Menu Array
ValuesmArray = CreateVariantArray(0, 1)
ValuessArray = CreateVariantArray(0, 1)
ValuescArray = CreateVariantArray(0, 1)
' Specifies property names
PropmArray(0) = "ObjectType"
PropmArray(1) = "innerText"
PropsArray(0) = "ObjectType"
PropsArray(1) = "innerText"
PropcArray(0) = "ObjectType"
PropcArray(1) = "innerText"
'**********Assigning values to each array
ValuesmArray(0) = "TextNode"
ValuesmArray(1) = mMenu
ValuessArray(0) = "TextNode"
ValuessArray(1) = sMenu
ValuescArray(0) = "TextNode"
ValuescArray(1) = cMenu
Set mobj = page.Find(PropmArray, ValuesmArray, 20)
If Not mobj.Exists Then
Log.Error("Main Menu " + mMenu + " is unavailable")
Exit Sub
End If
mobj.Click
Log.Message("Main Menu " + mMenu + " was clicked.")
delay(500)
'''''''********Click on sub menu
Set sobj = page.Find(PropsArray, ValuessArray, 20)
If Not sobj.Exists Then
Log.Error("Sub Menu " + sMenu + " is unavailable")
Exit Sub
End If
sobj.Click
Log.Message("Sub Menu " + sMenu + " was clicked.")
Delay(500)
''*********Clicking Child Menu
Set cobj = page.Find(PropcArray, ValuescArray, 20)
If Not cobj.Exists Then
Log.Error("Child Menu " + cMenu + " is unavailable")
Exit Sub
End If
cobj.Click
Log.Message("Child Menu " + cMenu + " was clicked.")
page.Wait
Call aqObject.CompareProperty(p1.IEFrame(0).WndCaption , 6, Caption, False)
End Sub