RenderSmoothness property example

Private Sub CommandButton5_Click()

     ' This example returns the current setting of RenderSmoothness.

     Dim RSmooth As Double

     RSmooth = ThisDocument.Preferences.RenderSmoothness

     MsgBox "The RenderSmoothness property is: " & RSmooth

End Sub