Rebuild an Assembly Example (VB.NET)

'----------------------------------------------------------------------------
' Preconditions: Open install_dir\samples\tutorial\api\wrench.sldasm.
'
' Postconditions:
' 1. The model is rebuilt.
' 2. Inspect the Immediate window for the result code.
'
' NOTE: Because the model is used elsewhere,
' do not save changes when closing it.
' ---------------------------------------------------------------------------
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System.Runtime.InteropServices
Imports System
Imports System.Diagnostics

Partial Class SolidWorksMacro

    Dim part As ModelDoc2
    Dim modelDocExt As ModelDocExtension
    Dim ret As Boolean

    Sub main()

        part = swApp.ActiveDoc
        modelDocExt = part.Extension
        ret = modelDocExt.Rebuild(swRebuildOptions_e.swRebuildAll)

        Debug.Print("Successfully rebuilt? " & ret)

    End Sub

    
    Public swApp As SldWorks


End Class