Create Exploded Views of an Assembly Example (VB.NET)

'----------------------------------------------------------------------------
' Preconditions:
' 1.  Open an assembly document.
' 2.  Press F5.
' 3.  Inspect the Immediate window.
' 4.  Press F5.
' 5.  All of the views are exploded. Inspect the graphics window.
' 6.  Press F5.
' 7.  All of the views are collapsed. Inspect the graphics window.
' 8.  Press F5.
' 9.  Inspect the exploded assembly in the graphics window.
' 10. Press F5.
' 11. Inspect the collapsed assembly in the graphics window.
'
' Postconditions: None
' ---------------------------------------------------------------------------
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System.Runtime.InteropServices
Imports System
Imports System.Diagnostics

Partial Class SolidWorksMacro

    Dim swModel As ModelDoc2
    Dim swAssembly As AssemblyDoc
    Dim vViewName As Object
    Dim sViewName As String
    Dim i As Integer

    Sub main()

        swModel = swApp.ActiveDoc
        swAssembly = swModel

        ' Create five exploded views
        For i = 0 To 4
            swAssembly.CreateExplodedView()
        Next i

        vViewName = swAssembly.GetExplodedViewNames
        Debug.Print("Number of exploded views created:  " & swAssembly.GetExplodedViewCount)

        For i = 0 To UBound(vViewName)
            sViewName = vViewName(i)
            Debug.Print("  Exploded view name: " & sViewName)
        Next i

        Stop
        For i = 0 To UBound(vViewName)
            sViewName = vViewName(i)
            Call swAssembly.ShowExploded2(True, sViewName)
        Next i

        Stop
        For i = 0 To UBound(vViewName)
            sViewName = vViewName(i)
            Call swAssembly.ShowExploded2(False, sViewName)
        Next i

        Stop
        swAssembly.ViewExplodeAssembly()

        Stop
        swAssembly.ViewCollapseAssembly()
    End Sub


    Public swApp As SldWorks


End Class