SharedBorders Property Example

This example sets the shared border for the active web.

Private Sub SetSharedBorders()
Dim myPage As PageWindow

ActiveWeb.SharedBorders(fpBorderLeft) = True

End Sub