[MS CONNECT U16, vba] Can I set "Is Annotation" property of a dimension line in code?

Sample Code below. The dimension line gets created, but the "Is Annotation" property in the properties window shows False. I want to set it to be true. Is there anyway for me to set this programmatically ?

    Dim oDim As DimensionElement
    Dim oDimStyle As DimensionStyle
    Set oDim = CreateDimensionElement1(Nothing, Matrix3dIdentity, msdDimTypeLocateSingle)
    oDim.AddReferencePoint ActiveModelReference, Point3dFromXY(0, 5)
    oDim.AddReferencePoint ActiveModelReference, Point3dFromXY(185.244, 5)
    oDim.DimensionStyle.ExtensionLineExtend = 2
    oDim.DimensionStyle.ExtensionLineOffset = -2
    oDim.DimensionStyle = oDimStyle
    ActiveModelReference.AddElement oDim