WebWindows Property Example

This example checks if any of the web windows are set to Page view, and changes those that are in Page view to Folders view.

Private Sub GetViewModes()
Dim myWebWindows As WebWindows
Dim myWebWindow As WebWindow
Dim myView As FpWebViewMode

Set myWebs = Webs
Set myWebWindows = myWebs.WebWindows

For Each myWebWindow In myWebWindows
    myView = myWebWindow.ViewMode
    If myView = fpWebViewPage Then
        myWebWindow.ViewMode = fpWebViewFolders
    End If
Next    
End Sub