' Copyright 2008 ESRI
' 
' All rights reserved under the copyright laws of the United States
' and applicable international laws, treaties, and conventions.
' 
' You may freely redistribute and use this sample code, with or
' without modification, provided you include the original copyright
' notice and use restrictions.
' 
' See use restrictions at <your ArcGIS install location>/developerkit/userestrictions.txt.
' 




Option Explicit

Private Const CAPTION As String = "Import"

Implements IMenuDef

Private Sub Class_Initialize()
    '
End Sub

Private Sub Class_Terminate()
    '
End Sub

Private Property Get IMenuDef_Caption() As String
    IMenuDef_Caption = CAPTION
End Property

Private Sub IMenuDef_GetItemInfo(ByVal pos As Long, ByVal itemDef As esriSystemUI.IItemDef)
    Select Case pos
    Case 0
        itemDef.ID = "GDBDesigner.DomainImporter"
        itemDef.Group = False
    Case 1
        itemDef.ID = "GDBDesigner.ObjectClassImporter"
        itemDef.Group = False
    Case 2
        itemDef.ID = "GDBDesigner.RelationshipClassImporter"
        itemDef.Group = False
    Case 3
        itemDef.ID = "GDBDesigner.GeometricNetworkImporter"
        itemDef.Group = False
    Case 4
        itemDef.ID = "GDBDesigner.TopologyImporter"
        itemDef.Group = False
    End Select
End Sub

Private Property Get IMenuDef_ItemCount() As Long
    IMenuDef_ItemCount = 5
End Property

Private Property Get IMenuDef_Name() As String
    IMenuDef_Name = "GeodatabaseDesigner_Import"
End Property