Sub ShowHistory
Dim cd As CustomDialog2
Dim wbview As WebView
wbview.Initialize("")
wbview.LoadHtml(File.GetText(File.DirAssets, mLanguage.getStr("HistoryFile")))
wbview.ZoomEnabled = False
cd.AddView(wbview,85%x,60%y)
cd.Show(Application.LabelName,"OK","","",LoadBitmap(File.DirAssets,"icon_48_48.png"))
End Sub