' 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