MENUBARINFO

Type rect

      Left As Long

      Top As Long

      Right As Long

      Bottom As Long

End Type

Type MENUBARINFO

     cbSize As Long

     rcBar As rect

     hMenu As Long

     hwndMenu As Long

     fBarFocused As Boolean

     fFocused As Boolean

End Type

Public Const OBJID_MENU As Long = &HFFFFFFFD

Pubic Const OBJID_SYSMENU As Long = &HFFFFFFFF

Dim mbi as MENUBARINFO

mbi.cbSize=LenB(mbi)

GetMenuBarInfo Me.hWnd,OBJID_MENU, lMenuNumber, mbi

Where "lMenuNumber" is 1 for the first (e.g. "File"), 2 for the second (e.g. "Edit"), etc.

rcBar.Left