Private WbRd As WebReader
Dim UnZipFolder As String = File.Combine(File.DirInternal, "epub")
Reader.UnZip(ePubFile, UnZipFolder, "Unzip")
Dim Book As ePubBook = Reader.ReadWithoutLoading(ePubFile, "UTF-8")
Dim OpfResource As String = Book.OpfResource.Href
BaseURL = "file://" & File.Combine(UnZipFolder, OpfResource.SubString2(0, Max(0, OpfResource.LastIndexOf("/"))))
WbRd.LoadUrl(File.Combine(File.DirInternal, Navigator.CurrentResource.Href))