Option Infer On AddReference "System.Drawing" AddReference "stdole" Imports System.Drawing Sub Main Dim doc = ThisApplication.ActiveDocument Dim bps = doc.BrowserPanes Dim bp As BrowserPane If (doc.DocumentType = DocumentTypeEnum.kPartDocumentObject) Then bp = bps("PmDefault") ElseIf (doc.DocumentType = DocumentTypeEnum.kAssemblyDocumentObject) Then bp = bps("AmBrowserArrangement") Else Return End If ' e.g. if you want to change the root node's icon ' in the assembly "Model" panel Dim bmpDotNet As New Bitmap("C:\Bitmap1.bmp") Dim bmp = IconConverter.GetIPictureDispFromImage(bmpDotNet) ' Only Bitmaps are supported by the Add method ' and it should be 16x16 Try Dim cnr = bps.ClientNodeResources.Add("MyResource", 2, bmp) Dim nbnd = TryCast(bp.TopNode.BrowserNodeDefinition, NativeBrowserNodeDefinition) nbnd.OverrideIcon = cnr Catch ' The resource probably already exists. TODO: add code to check for the resource. End Try End Sub Public Class IconConverter Inherits System.Windows.Forms.AxHost Private Sub New() MyBase.New(String.Empty) End Sub Public Shared Function GetIPictureDispFromImage(image As System.Drawing.Image ) As stdole.IPictureDisp Return TryCast(GetIPictureDispFromPicture(image), stdole.IPictureDisp) End Function End Class