Attribute VB_Name = "m_HelloAppHello"
'Generated by IDL2VB v099. Copyright (c) 2000 Martin.Both
'Source File Name: Hello.idl

Option Explicit

'interface ::HelloApp::Hello
Const sTypeId As String = "IDL:HelloApp/Hello:1.0"

'Helper
Public Function TypeId() As String
    TypeId = sTypeId
End Function

'Helper
Public Function narrow(ByVal Obj As cOrbObject) As c_HelloAppHello
    On Error GoTo ErrHandler
    If Obj Is Nothing Then
        Set narrow = Nothing
    Else
        Dim oObj As cOrbObject
        Set oObj = New c_HelloAppHello
        If oObj.setObjRef(Obj.getObjRef(), True) Then
            Set narrow = Nothing
        Else
            Set narrow = oObj
        End If
    End If
    Exit Function
ErrHandler:
    Call VBOrb.ErrReraise(Err, "narrow")
End Function

'Helper
Public Function uncheckedNarrow(ByVal Obj As cOrbObject) As c_HelloAppHello
    On Error GoTo ErrHandler
    If Obj Is Nothing Then
        Set uncheckedNarrow = Nothing
    Else
        Dim oObj As cOrbObject
        Set oObj = New c_HelloAppHello
        If oObj.setObjRef(Obj.getObjRef(), False) Then
            Set uncheckedNarrow = Nothing
        Else
            Set uncheckedNarrow = oObj
        End If
    End If
    Exit Function
ErrHandler:
    Call VBOrb.ErrReraise(Err, "uncheckedNarrow")
End Function
