vb.net - StorageFileQueryResults.ContentsChanged が発生しない

Question

新しいサーフェス用のシンプルな (そして最初の) Windows 8 アプリを開発しようとしています。このアプリ内で、新しいファイル (特に写真) を追加するためのフォルダーを監視しようとします。このために、イベント StorageFileQueryResults.ContentsChanged を使用しようとしています。

コードは非常に単純ですが、新しいファイルを追加してもイベントが発生しません。コードは次のとおりです。

    'Load Image Libary Pictures
    Dim fqFiles = KnownFolders.PicturesLibrary.CreateFileQuery()
    AddHandler fqFiles.ContentsChanged, AddressOf ContentsChanged
    Dim liFiles = Await fqFiles.GetFilesAsync()

Private Sub ContentsChanged(sender As IStorageQueryResultBase, args As Object)
    Dim msgDialog = New MessageDialog("Test", "test2")
    msgDialog.ShowAsync()
End Sub

私が何か間違っているかどうか誰かが考えていますか？