FrameWindow Property Example

This example retrieves the IHTMLLocation property of the FrameWindow object.

Private Sub GetFrameWindowLocation()
Dim myWeb As Web
Dim myPage As PageWindow
Dim myFrameWindowLocation As String

Set myWeb = Webs("C:\My Webs\Rogue Cellars")
Set myPage = _
    myWeb.ActiveWebWindow.ActivePageWindow
myFrameWindowLocation = myPage.FrameWindow.Location.href
End Sub