Sub Test() Dim s As Shape Set s = ActiveLayer.CreateRectangle2(0, 0, 2, 2, 0.5, 0.5, 0.5, 0.5) MsgBox s.SnapPoints.CountEnd Sub