Select Many Dimension

Follow code → Choose several dimension line。

Question is see follow picture

Help me. How to determine the number of multiple dimension ?

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

Private Sub ll()

   Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2

       Set SwApp = Application.SldWorks

       Set SwModel = SwApp.ActiveDoc

   Dim SwSelMgr As SelectionMgr

       Set SwSelMgr = SwModel.SelectionManager

   Dim SwDispDim As DisplayDimension, SwDim As Dimension

       Set SwDispDim = SwSelMgr.GetSelectedObject5(1)

       Set SwDim = SwDispDim.GetDimension

       Debug.Print SwDim.Name, SwDim.FullName

       Set SwDispDim = SwSelMgr.GetSelectedObject5(2)

       Set SwDim = SwDispDim.GetDimension

       Debug.Print SwDim.Name, SwDim.FullName

       Set SwDispDim = SwSelMgr.GetSelectedObject5(3)

       Set SwDispDim = SwSelMgr.GetSelectedObject5(4)

       Set SwDim = SwDispDim.GetDimension

       Debug.Print SwDim.Name, SwDim.FullName

       Stop

       Stop

End Sub

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