Sub Globals
Dim myPanel As Panel
Dim myWebView As WebView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout1")
myPanel.SetLayout(0dip, 0dip, 100%x, 100%y)
myWebView.RemoveView
myPanel.AddView(myWebView, 5dip, 5dip, 100%x - 10dip, 100%y -10dip)
Dim myTextReader As TextReader
myTextReader.Initialize(File.OpenInput(File.DirAssets, "1.txt"))
myWebView.JavaScriptEnabled = True
myWebView.LoadHtml(myTextReader.ReadAll)
myTextReader.Close
End Sub