Set New End Condition for Simple Hole Feature Example (VB.NET)

'----------------------------------------------------------------------------
' Preconditions:
' 1. Open a part document containing a block with a simple hole feature.
' 2. Select the bottom face of the block.
'
' Postconditions:  The bottom face of the block is the new end condition
' of the simple hole feature.
'----------------------------------------------------------------------------

Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System.Runtime.InteropServices
Imports System
Imports System.Diagnostics

Partial Class SolidWorksMacro

    Dim Model As ModelDoc2
    Dim SelMgr As SelectionMgr
    Dim SimpleHoleFeature As Feature
    Dim SimpleHoleFeature_DEF As SimpleHoleFeatureData2
    Dim bottomFace As Face2
    Dim SimpleHoleEndCondition As Face2
    Dim boolstatus As Boolean


    Sub main()

        Model = swApp.ActiveDoc
        SelMgr = Model.SelectionManager

        bottomFace = SelMgr.GetSelectedObject6(1, -1)

        boolstatus = Model.Extension.SelectByID2("Hole1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, swSelectOption_e.swSelectOptionDefault)
        SimpleHoleFeature = SelMgr.GetSelectedObject6(1, -1)

        SimpleHoleFeature_DEF = SimpleHoleFeature.GetDefinition
        SimpleHoleFeature_DEF.AccessSelections(Model, Nothing)

        Dim SimpleHoleType As Integer

        ' Print the type of hole
        SimpleHoleType = SimpleHoleFeature_DEF.Type
        Debug.Print("Hole type: " & SimpleHoleType)

        ' If the end condition is blind, no reference is returned
        SimpleHoleEndCondition = SimpleHoleFeature_DEF.GetEndConditionReference(SimpleHoleType)

        SimpleHoleFeature_DEF.Type = swEndConditions_e.swEndCondUpToSurface
        SimpleHoleFeature_DEF.SetEndConditionReference(bottomFace)
        SimpleHoleFeature.ModifyDefinition(SimpleHoleFeature_DEF, Model, Nothing)
        SimpleHoleFeature_DEF.AccessSelections(Model, Nothing)

        ' Print the type of hole
        SimpleHoleType = SimpleHoleFeature_DEF.Type
        Debug.Print("Hole type after setting end condition: " & SimpleHoleType)

        ' The end condition is not blind, so a reference is returned
        SimpleHoleEndCondition = SimpleHoleFeature_DEF.GetEndConditionReference(SimpleHoleType)

        SimpleHoleFeature_DEF.ReleaseSelectionAccess()

    End Sub

    Public swApp As SldWorks


End Class