Dim openPicker As New FileOpenPicker()
openPicker.FileTypeFilter.Add(".pdf")
Dim file As StorageFile = Await openPicker.PickSingleFileAsync()
If file IsNot Nothing Then
Dim stream As Stream = Await file.OpenStreamForReadAsync()
pdfViewer.LoadDocument(stream)
End If