Private Sub ll()

  Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2

  Dim SwDraw As DrawingDoc, SwSelMgr As SelectionMgr

  Dim SwFeat As Feature, BomFeat As BomFeature

    Set SwApp = Application.SldWorks

    Set SwModel = SwApp.ActiveDoc

    Debug.Print SwModel.GetTitle

    Set SwSelMgr = SwModel.SelectionManager

    ''

    Set BomFeat = SwSelMgr.GetSelectedObject6(1, -1)

    Set SwFeat = BomFeat.GetFeature

    Debug.Print SwFeat.Name

End Sub