' --------------------------- CloseDocument --------------------------
''' <summary>
'''   Closes the document currently displayed in
'''   the DocumentViewer control.</summary>
Public Sub CloseDocument()
    If _xpsFile IsNot Nothing Then
        ShowStatus("Closing '" & Filename(_xpsFile) & "'")
        DocViewerProperty.Document = Nothing
        _xpsFile = Nothing
    End If

    ' If the package is open, close it.
    If _xpsPackage IsNot Nothing Then
        _xpsPackage.Close()
        _xpsPackage = Nothing
    End If

    ' The package is closed, remove it from the store.
    If _packageUri IsNot Nothing Then
        PackageStore.RemovePackage(_packageUri)
        _packageUri = Nothing
    End If

    ' Disable document-related selections when there's no document.
    menuFileClose.IsEnabled = False
    menuFilePrint.IsEnabled = False
    menuViewIncreaseZoom.IsEnabled = False
    menuViewDecreaseZoom.IsEnabled = False
    Me.Title = "RightsManagedPackageViewer SDK Sample"
    ShowPrompt("Click 'File | Open...' to select a file to open and view.")
    rightsBlock.Text = ""

End Sub