Attribute VB_Name = "m_Nm"
'Generated by IDL2VB v120. Copyright (c) 2000 Martin.Both
'Source File Name: ../naming/CosNaming.idl

Option Explicit

'module ::CosNaming

'Enum BindingType
Public Const nobject As Long = 0
Public Const ncontext As Long = 1

'Enum BindingType, Helper
Public Function BindingType_TypeCode() As cOrbTypeCode
    On Error GoTo ErrHandler
    Dim oOrb As cOrbImpl
    Set oOrb = VBOrb.defaultOrb()
    'Describe enum members
    Dim oMemSeq As c_StringSeq
    Set oMemSeq = New c_StringSeq
    oMemSeq.Length = 2
    oMemSeq.Item(0) = "nobject"
    oMemSeq.Item(1) = "ncontext"
    Set BindingType_TypeCode = oOrb.createEnumTc("IDL:CosNaming/BindingType:1.0", "BindingType", oMemSeq)
    Exit Function
ErrHandler:
    Call VBOrb.ErrReraise(Err, "BindingType_TypeCode")
End Function
