The following example demonstrates how to use the Library property to return the name of the Parent property.
Private Sub LibraryPropExample()
Dim icadDoc As IntelliCAD.Document
Dim libObj As String
libObj = Application.Library.Parent.Name
MsgBox "Name is: " & libObj
End Sub