Sub mnuHistory_Click
Dim p As Panel
p.Initialize("")
p.SetLayoutAnimated(0, 1, 0, 0, pMain.RootPanel.Width * 0.8, pMain.RootPanel.Height * 0.8 - 50)
p.LoadLayout("frmWebView")
DetailsDialog.Initialize(p)
'HTML-Datei laden
Dim WebView1 As WebView = p.GetView(0)
WebView1.LoadHtml(File.ReadString(File.DirAssets, language.Value("strHistoryFile")))
DetailsDialog.Style = DetailsDialog.STYLE_INFO
Dim sf As Object = DetailsDialog.ShowAsync("", "OK", "", "", True)
Wait For (sf) Dialog_Result (Result As Int)
End Sub