Public Sub Initialize()
    Dim Doc As GeoMedia.Document
    Dim Items(0) As MenuItemInfo
    
    On Error GoTo ErrHandler
    Frame1(0).BorderStyle = vbBSNone
    Label1(0).Caption = FarmName & sLandMan
    AddCommands
    Combo1.AddItem sDocUseMan
    Combo1.ItemData(Combo1.NewIndex) = flmdvmUse
    Combo1.AddItem sDocLeaseMan
    Combo1.ItemData(Combo1.NewIndex) = flmdvmLease
    Combo1.AddItem sDocRubberMan
    Combo1.ItemData(Combo1.NewIndex) = flmdvmRubber
    Combo1.ListIndex = 1
    mnuDocItem(0).Caption = sRefreshCmd
    mnuNaviItem(0).Caption = sTeamLeaseStatCmd
    #If ccInnerGM Then
        HookSubclass UserControl.hWnd, progidDocMgr
        Set Doc = GMApplication.Document

        NavigationMap1[color=FF0000].Initialize [/color] Doc.Legends(sRegionalManMap).Copy, Doc.CoordSystemsMgr, _
            gdbtTeam, gdbfTeamName, GMApplication
        Items(0).Caption = sTeamLeaseStatCmd
        Items(0).EnableCondition = flmmieSomeSelect
        NavigationMap1.CustomMenuItems Items
    #End If
    Exit Sub
ErrHandler:
    Err.Raise flmInitFailure + vbObjectError, progidDocMgr, LoadResString(flmInitFailure)
End Sub
部分代码 由于需要生成flmctrl（文件名）.cox时 上面提示.Initialize未找到方法或数据成员 这个是怎么回事 怎么修改