Move (up/dowan) cut list folder in feature manager

In VBA, I can move items from folder to other folder, but I cant move folder up or down

VBA:

Sub main()

    Dim swModel As ModelDoc2

    Dim swApp As SldWorks.SldWorks

    Dim featMgr As FeatureManager

    Dim bStatus As Boolean

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set featMgr = swModel.FeatureManager

    bStatus = featMgr.MoveToFolder("Element listy elementów ciętych7", "Dodanie-wyciągnięcie3", True)

    Debug.Print bStatus

End Sub