Reset Visibility of Sketches in Drawing View (VB.NET)

'--------------------------------------------------
' Preconditions: Specified drawing document exists.
'
' Postconditions:
' 1. Specified drawing document is opened.
' 2. Examine the drawing.
' 3. A drawing view is activated, and the
'    a sketch in that drawing view is hidden.
' 4. After examining the drawing to verify,
'    resume the macro.
' 5. The drawing view with the hidden sketch
'    is selected, and the visibility of
'    all sketches in that drawing view are reset
'    so that the drawing view reflects the model.
' 6. Examine the drawing to verify that the hidden
'    sketch is visible.
'
' NOTE: Because this drawing is used elsewhere, do
' not save any changes when closing it.
'-------------------------------------------------
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System

Partial Class SolidWorksMacro

    Public Sub Main()


        Dim swModel As ModelDoc2
        Dim swDrawing As DrawingDoc
        Dim swModelDocExt As ModelDocExtension
        Dim swSelMgr As SelectionMgr
        Dim swView As View
        Dim fileName As String
        Dim boolstatus As Boolean
        Dim errors As Integer
        Dim warnings As Integer

        fileName = "C:\Program Files\SolidWorks Corp\SolidWorks\samples\tutorial\api\resetsketchvisibility.SLDDRW"

        swModel = swApp.OpenDoc6(fileName, swDocumentTypes_e.swDocDRAWING, swOpenDocOptions_e.swOpenDocOptions_Silent, "", errors, warnings)
        swDrawing = swModel
        swModelDocExt = swModel.Extension
        swSelMgr = swModel.SelectionManager

        Stop ' Examine the drawing

        ' Select a drawing view where to hide a sketch
        boolstatus = swDrawing.ActivateView("Drawing View1")

        ' Hide the selected sketch
        boolstatus = swModelDocExt.SelectByID2("Sketch1@resetsketchvisibility-7@Drawing View1", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
        swModel.BlankSketch()

        Stop ' Examine the drawing to verify that selected sketch is hidden

        ' Select the drawing view with the hidden sketch
        boolstatus = swModelDocExt.SelectByID2("Drawing View1", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing, 0)
        swView = swSelMgr.GetSelectedObject6(1, -1)

        ' Reset the visibility of sketches in the selected
        ' drawing view so that the drawing view reflects
        ' the model
        swView.ResetSketchVisibility()


    End Sub


    ''' <summary>
    ''' The SldWorks swApp variable is pre-assigned for you.
    ''' </summary>
    Public swApp As SldWorks


End Class