Private Sub m_BillInterface_MenuBarInitialize(ByVal oMenuBar As K3ClassEvents.MenuBar)

    Dim oTool   As K3ClassEvents.BOSTool

    Dim oBand   As K3ClassEvents.BOSBand

'*************** 开始设置 BOS 原有菜单 ***************

    '获得 mnuDataAccessory 菜单对象，并设置属性

    Set oBand = oMenuBar.BOSBands("mnuData")

    Set oTool = oBand.BOSTools("mnuDataAccessory")'访问到附件菜单

    Set oBand = oMenuBar.BOSBands("BandToolBar")'访问到工具栏

    oBand.BOSTools.InsertAfter "mnuDataLookUp", oTool   '将附件菜单插入工具栏“资料查询”按钮后面

'*************** 结束设置 BOS 原有菜单 ***************

End Sub