Retrieve appearance for base view in drawing?

[SharkDesign]

I've found various discussions on this but not been able to get any of them to work. 

I'm wanting to see if the appearance of the base view in the drawing is brushed stainless steel. 

I can get the material dead easy, but can't work out the appearance. 

Thanks

[JhoelForshav · Accepted solution]

@SharkDesign 

Are you looking for something like this or is the problem more complex than that?

Dim oSheet As Sheet = ActiveSheet.Sheet
Dim oView As DrawingView = oSheet.DrawingViews(1)
Dim oDoc As Document = oView.ReferencedDocumentDescriptor.ReferencedDocument
If oDoc.DocumentType = DocumentTypeEnum.kPartDocumentObject
MsgBox(oDoc.ActiveAppearance.DisplayName)
End If

[SharkDesign]

Perfect, thanks!

I've spent ages looking for that!!