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