Sub Test() Dim shp1 As Shape Dim snpVer As New SnapPoint, snp1 As New SnapPoint, snp2 As New SnapPoint 'Initialize the snap points; this placement should form a 45 degree measurement. snpVer.PositionX = 0.0 snpVer.PositionY = 0.0 snp1.PositionX = 10.0 snp1.PositionY = 0.0 snp2.PositionX = 10.0 snp2.PositionY = 10.0 Set shp1 = ActiveLayer.CreateAngularDimension(snpVer, snp1, snp2, 10.0, 5.0) 'Change the "right" arm of the angular dimension to coordinates 25,10 and the "left" arm to 50,25. shp1.Dimension.Angular.Point1.PositionX = 25.0 shp1.Dimension.Angular.Point1.PositionY = 10.0 shp1.Dimension.Angular.Point2.PositionX = 50.0 shp1.Dimension.Angular.Point2.PositionY = 25.0End Sub