GetProcID - Retrieve the DispID of a procedure

' Return the DispID of a procedure
' ProcName must be set to a procedure name of the object
' specified in the second parameter.

' Be sure that "TypeLib Information" type library (TlbInf32.tlb)
' is referenced in your VB project.

Function GetDispID(Object As Object, ByVal ProcName As String) As Long
    Dim TLI As New TLIApplication
    ' any error will be raised by TLI
    GetDispID = TLI.InvokeID(Object, ProcName)
End Function