Extracting CLSID progammatically from OCX?

[tiredoflogins]

Hi,

I've spent a couple of hours googling, but can't find a way to extract the CLSID from an OCX file. I know I can register it and read this information (and others) from the Registry, but I'd like to get this information directly from the OCX instead, and display this info in a label.

While browsing through Usenet and the Web, I happened upon a bit of infos on a MS-created by unsupported "tlbinf32.dll", but no code to show how to read the CLSID info.

Anybody has some running code for VB5 or 6?

Thank you :-)
Fred.

[crptcblade]

Try

Private Sub Form_Load()
Dim tlii As TLI.TypeLibInfo
 
    Set tlii = TLIApplication.TypeLibInfoFromFile("SomeFile.ocx")
    
    MsgBox tlii.Guid
    
End Sub

[tiredoflogins]

Thx a bunch but where can I find the variable definition?

>>Dim tlii As TLI.TypeLibInfo

"User-defined type not found."

Thx
Fred.

[crptcblade]

Oh, sorry, you need to add a reference to the TypeLib Info Library.

[tiredoflogins]

Thx :-) That did it.

Fred.