Dissolve Subassembly in a BOM Table Example (VB.NET)

'-----------------------------------------------------------------------------
' Preconditions:
' 1. Open install_dir\samples\tutorial\assemblyvisualize\food_processor.sldasm.
' 2. Select File > Make Drawing from Assembly.
' 3. Click OK.
' 4. Drag and drop one or more views onto the drawing.
' 5. Ensure that the specified template exists.
'
' Postconditions:
' 1. An indented BOM table is inserted in the drawing.
' 2. The blade shaft subassembly is dissolved.
' 3. After the macro stops, click F5 to restore the blade shaft subassembly.
'
' NOTE: Because this document is used by a SolidWorks
'       online tutorial, do not save any changes when
'       closing it.
'-----------------------------------------------------------------------------
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System.Runtime.InteropServices
Imports System

Partial Class SolidWorksMacro

    Dim Part As ModelDoc2
    Dim swModelDocExt As ModelDocExtension
    Dim swDrawing As DrawingDoc
    Dim swView As View
    Dim boolstatus As Boolean
    Dim swBOMAnnotation As BomTableAnnotation
    Dim AnchorType As Integer
    Dim BomType As Integer
    Dim Configuration As String
    Dim TableTemplate As String

    Sub main()

        Part = swApp.ActiveDoc
        swDrawing = Part
        swModelDocExt = Part.Extension
        boolstatus = swDrawing.ActivateView("Drawing View1")
        swView = swDrawing.ActiveDrawingView

        AnchorType = swBOMConfigurationAnchorType_e.swBOMConfigurationAnchor_TopLeft
        BomType = swBomType_e.swBomType_Indented
        TableTemplate = "C:\Program Files\SolidWorks Corp\SolidWorks\lang\english\bom-standard.sldbomtbt"
        Configuration = ""
        swBOMAnnotation = swView.InsertBomTable4(False, 0.4, 0.3, AnchorType, BomType, Configuration, TableTemplate, False, swNumberingType_e.swNumberingType_Detailed, True)

        'Dissolve blade shaft subassembly
        boolstatus = swBOMAnnotation.Dissolve(8)
        Stop
        'Restore blade shaft subassembly
        boolstatus = swBOMAnnotation.RestoreRestructuredComponents(0)

    End Sub

  
    Public swApp As SldWorks


End Class