The following VBA example creates a rectangle with rounded corners and displays the number of snap points available for this type of shape.
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.Count
End Sub