' --------------------- CreateFifthPageContent -----------------------
''' <summary>
'''   Creates the content for the fifth fixed page.</summary>
''' <returns>
'''   The page content for the fifth fixed page.</returns>
Private Function CreateFifthPageContent() As PageContent
    Dim pageContent As New PageContent()
    Dim fixedPage As New FixedPage()
    Dim visual As UIElement = CreateThirdVisual(False)

    FixedPage.SetLeft(visual, 0)
    FixedPage.SetTop(visual, 0)

    Dim pageWidth As Double = 96 * 8.5
    Dim pageHeight As Double = 96 * 11

    fixedPage.Width = pageWidth
    fixedPage.Height = pageHeight

    fixedPage.Children.Add(CType(visual, UIElement))

    Dim sz As New Size(8.5 * 96, 11 * 96)
    fixedPage.Measure(sz)
    fixedPage.Arrange(New Rect(New Point(), sz))
    fixedPage.UpdateLayout()

    CType(pageContent, IAddChild).AddChild(fixedPage)
    Return pageContent
End Function ' end:CreateFifthPageContent()