ReadOnly property example

The following example demonstrates how to return the ReadOnly property.

Private Sub ReadOnlyPropExample()

     Dim ReadStatus As Boolean

     ReadStatus = ActiveDocument.ReadOnly

     MsgBox "The ReadOnly property is: " & ReadStatus

End Sub