Well No solution yet.... i have a modified my script but it will work only if application dont have same menu's in two diferent places.
Public Sub clickMenu(mMenu, sMenu, cMenu, Caption)
clickMenu(mMenu, sMenu, cMenu, Caption)
dim p1, page, mobj, sobj, cobj
'initialize the broswer, page, and current form for testing
Set p1 = Sys.Process("iexplore")
Set page = p1.Page("*")
page.Refresh
'Try to find the button
Set mobj = page.NativeWebObject.Find("innerText", mMenu)
If Not mobj.Exists Then
Log.Error("Main Menu " + mMenu + " is unavailable")
Exit Sub
End If
'click the link and log it
mobj.Click
Log.Message("Main Menu " + mMenu + " was clicked.")
delay(500)
'''''''********Click on sub menu
Set sobj = page.NativeWebObject.Find("innerText", sMenu)
If Not sobj.Exists Then
Log.Error("Sub Menu " + sMenu + " is unavailable")
Exit Sub
End If
'click the link and log it
sobj.Click
Log.Message("Sub Menu " + sMenu + " was clicked.")
delay(500)
''*********Clicking Child Menu
If not cMenu = "" then 'In case if there is not child menu, system will only click to sub menu and exit.
Set cobj = page.NativeWebObject.Find("innerText", cMenu)
If Not cobj.Exists Then
Log.Error("Child Menu " + cMenu + " is unavailable")
Exit Sub
End If
'click the link and log it
cobj.Click
Log.Message("Child Menu " + cMenu + " was clicked.")
page.Wait
End If
'Comparing Page Caption
Call aqObject.CompareProperty(p1.IEFrame(0).WndCaption , 6, Caption, False)
End Sub