Returns a Properties collection that represents the properties for the specified object.
expression.Properties
expression Required. An expression that returns one of the objects in the Applies To list.
Example
The following example adds a new property and displays it on the active Web page.
Note To run this example, you must have a Web site called "C:\My Documents\My Web Sites\Rogue Cellars" and a file called "Zinfandel.htm". Or, you may substitute an alternative Web site URL and file name.
Private Sub CopyrightAdd()
Dim myWeb As WebEx
Dim myCopyright As String
myCopyright = "Copyright 1999 by Rogue Cellars"
Set myWeb = Webs.Open("C:\My Documents\My Web Sites\Rogue Cellars")
myWeb.Activate
ActiveWeb.Properties.Add "Copyright", myCopyright
ActiveWeb.RootFolder.Files("Zinfandel.htm").Open
ActiveDocument.body.insertAdjacentText "BeforeEnd", _
ActiveWeb.Properties("Copyright")
ActivePageWindow.Save
ActiveWeb.Close
End Sub