ReadOnly property example

Sub ReadOnly_Example()
'The following example demonstrates how to return the ReadOnly property.
    Dim bReadStatus As Boolean
    bReadStatus = ThisDrawing.ReadOnly
    MsgBox "The ReadOnly property is: " & bReadStatus
End Sub