2010 SolidWorks API Help - Is Feature Suppressed in Specified Configurations Example (VBA)

http://help.solidworks.com/2010/english/api/sldworksapi/IS_Feature_Suppressed_in_Specified_Configurations_Example_VB.htm

Private Sub del1419()

   Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2

      Set SwApp = Application.SldWorks

      Set SwModel = SwApp.ActiveDoc

   Dim SwFeat As Feature

      Set SwFeat = SwModel.FeatureByName("Dn500")

      Debug.Print SwFeat.Name

   Dim ConfArr, vConfArr

      ConfArr = SwModel.GetConfigurationNames

      vConfArr = SwFeat.IsSuppressed2(3, ConfArr)

      Stop

End Sub

*****************************************************************************

Private Sub ll()

  Dim Swapp As SldWorks.SldWorks, SwModel As ModelDoc2

    Set Swapp = Application.SldWorks

    Set SwModel = Swapp.ActiveDoc

  Dim SwFeat As Feature

    Set SwFeat = SwModel.FeatureByName("Dn400")

    Debug.Print SwFeat.Name

  Dim ConfArr, vConfArr

    ConfArr = SwModel.GetConfigurationNames

    vConfArr = SwFeat.IsSuppressed2(0, ConfArr)

    Stop

    vConfArr = SwFeat.IsSuppressed2(1, ConfArr)

    Stop

    vConfArr = SwFeat.IsSuppressed2(2, ConfArr)

    Stop

    vConfArr = SwFeat.IsSuppressed2(3, ConfArr)

    Stop

End Sub