Known Dim swDispDim  As SldWorks.DisplayDimension

   Set swAnn = swDispDim.GetAnnotation

   Set swDim = swDispDim.GetDimension

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

    Dim swDispDim                   As SldWorks.DisplayDimension

    Dim swDim                       As SldWorks.Dimension

    Dim swAnn                       As SldWorks.Annotation

Set swDispDim = swView.GetFirstDisplayDimension5

   Set swAnn = swDispDim.GetAnnotation

   Set swDim = swDispDim.GetDimension

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

My question

    Dim swDim As SldWorks.Dimension

    Set swDim = swModel.Parameter("D1@Extrude1")

How to set SldWorks.Dimension→SldWorks.DisplayDimension

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