' 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