please help to debug the error

[andrawal111]

trying to hide arrow symbol for 3d dimension..

Dim dimension1 As Annotation
Set dimension1 = oAnnotationFactory.CreateNonSemanticDimension(oUserSurface, 1, 0)

Dim odimension3d As dimension3d
Set odimension3d = dimension1.dimension3d

Dim oGet2dAnnot As DrawingDimension
Set oGet2dAnnot = odimension3d.Get2dAnnot

Dim oDimDimLine As DrawingDimLine
Set oDimDimLine = oGet2dAnnot.GetDimLine

Dim oCatDimSymbols As CatDimSymbols
Set oCatDimSymbols = oDimDimLine.GetSymbType(1).NONE



last line getting error as invalid qualifier