Function GetObjectGUID(Object As Object) As String
Dim TLI As New TLIApplication ' any error will be raised by TLI GetObjectGUID = TLI.InterfaceInfoFromObject(Object).Guid End Function Be sure that "TypeLib Information" type library (TlbInf32.tlb) is referenced in your VB project. |