This procedure determines whether the Caption property can be modified, and displays the result. Note that the property identifier (rcCaption) is used as an argument to GetSetStringProfile rather than the property itself (.Caption).

Sub GetSetStringProfileDemo ()

With Session

 Dim isModifiable as Integer

 isModifiable = .GetSetStringProfile(rcCaption)

 If isModifiable Then

  MsgBox "Can be Modified"


  MsgBox "Can't be modified"

 End If

End With

End Sub