Vb.Net "AddIn" dll - AssetLibrary & Material Asset Problem

[isocam]

Can anybody help?

I have the following code that is part of a Vb.Net "AddIn" dll.  

The code is taken from the sub: Private Sub ApplicationEvents_OnSaveDocument(.................)

If BeforeOrAfter = EventTimingEnum.kBefore Then
Dim oDoc As Inventor.Document = TryCast(DocumentObject, Inventor.Document)

If oDoc IsNot Nothing And oDoc.DocumentType.Equals(DocumentTypeEnum.kPartDocumentObject) Then
PartMaterial = "Brass, Soft Yellow"

Dim partDoc As PartDocument = oDoc

Dim AssetLib As AssetLibrary = InventorApplication.AssetLibraries.Item(MaterialLibrary)

Dim oMaterial As MaterialAsset

oMaterial = AssetLib.MaterialAssets.Item(PartMaterial)

MsgBox("MATERIAL CURRENTLY SET TO: " + partDoc.ComponentDefinition.Material.Name)

partDoc.ActiveMaterial = oMaterial

MsgBox("MATERIAL UPDATED TO: " + partDoc.ComponentDefinition.Material.Name)
End If
End If

I have a problem with the lines highlighted in blue.

Does anybody know what is wrong?

Many thanks in advance

Darren

[bradeneuropeArthur]

Change to this and it will work:

Dim AssetLib As AssetLibrary = InventorApplication.AssetLibraries.Item(ThisApplication.ActiveMaterialLibrary.DisplayName)

[Curtis_Waguespack]

@isocam, I think  what bradeneuropeArthur said is close, you might just need to change the application reference as shown:

InventorApplication.AssetLibraries.Item(InventorApplication.ActiveMaterialLibrary.DisplayName)

Hope that helps,

Curtis

        Private Sub Events_OnSaveDocument(DocumentObject As _Document,
                      BeforeOrAfter As EventTimingEnum, Context As NameValueMap, ByRef HandlingCode As HandlingCodeEnum)

            If Not DocumentObject Is InventorApplication.ActiveDocument Then Exit Sub 'only trigger on the active file
            If DocumentObject.DocumentType = DocumentTypeEnum.kPartDocumentObject Then
                If BeforeOrAfter = EventTimingEnum.kBefore Then

                    Call SetMaterial(DocumentObject)

                End If
            End If

        End Sub

        Sub SetMaterial(DocumentObject As _Document)

            Dim AssetLib As AssetLibrary = InventorApplication.AssetLibraries.Item(InventorApplication.ActiveMaterialLibrary.DisplayName)
            Dim PartMaterial = "Brass, Soft Yellow"
            Dim oMaterial As MaterialAsset
            oMaterial = AssetLib.MaterialAssets.Item(PartMaterial)

            MsgBox("MATERIAL CURRENTLY SET TO: " + DocumentObject.ComponentDefinition.Material.Name)
            DocumentObject.ActiveMaterial = oMaterial
            MsgBox("MATERIAL UPDATED TO: " + DocumentObject.ComponentDefinition.Material.Name)

        End Sub