Private Sub mnuHistory
Dim dialog As CustomLayoutDialog
Dim sf As Object = dialog.ShowAsync("", "OK", "", "", Null, True)
Wait For (sf) Dialog_Ready (DialogPanel As Panel)
DialogPanel.LoadLayout("frmWebView")
Dim WebView1 As WebView = DialogPanel.GetView(0)
WebView1.Padding = Array As Int(10dip, 20dip,10dip, 10dip)
WebView1.LoadHtml(File.GetText(File.DirAssets,Starter.language.value("strHistoryFile")))
Wait For (sf) Dialog_Result (Result As Int)
End Sub