How to delete the equation at the specified index

Hope delete select 1,2,4 Item Equation

record Macro ,the code is

  Set swApp = Application.SldWorks 

  Set Part = swApp.ActiveDoc

  Set SelMgr = Part.SelectionManager

  boolstatus = Part.Extension.SelectByID2("Equations", "EQNFOLDER", 0, 0, 0, False, 0, Nothing, 0)

  Part.DeleteAllRelations

End Sub

The Code result is

2013 SolidWorks API Help - Pack and Go Part and Linked Equation (VBA)

http://help.solidworks.com/2013/English/api/sldworksapi/pack_and_go_part_and_linked_equation_example_vb.htm

2013 SolidWorks API Help - Add Equation and Evaluate All Example (VBA)

http://help.solidworks.com/2013/English/api/sldworksapi/add_equation_and_evaluate_all_example_vb.htm

2013 SolidWorks API Help - Use IIf Function When Adding an Equation Example (VBA)

http://help.solidworks.com/2013/English/api/sldworksapi/use_iif_function_when_adding_an_equation_example_vb.htm

2013 SolidWorks API Help - Automatically Solve Equations in Sequence (VBA)

http://help.solidworks.com/2013/English/api/sldworksapi/automatically_solve_equations_in_sequence_example_vb.htm

SolidWorks Forums: Does SolidWorks have APIs that can modify the values of global variables in SolidWorks equations?

https://forum.solidworks.com/message/330406#330406

SolidworksApi macros