RenderSmoothness property example

Sub RenderSmoothness_Example()
' This example returns the current setting of RenderSmoothness.
    Dim RSmooth As Double
    RSmooth = ThisDrawing.preferences.RenderSmoothness
    MsgBox "The RenderSmoothness property is: " & RSmooth
End Sub