'Activity module
Sub Process_Globals
End Sub
Sub Globals
Dim myw As WebView
Dim rr As Reflector
Dim HTMLStr As String
End Sub
Sub Activity_Create(FirstTime As Boolean)
HTMLStr = "http://www.canonusa.com"
CreateWV
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub CreateWV
myw.Initialize("myw")
Activity.AddView(myw,0,0,1024,560)
rr.Target = myw
rr.Target = rr.RunMethod("getSettings")
rr.RunMethod2("setPluginsEnabled", True, "java.lang.boolean")
myw.JavaScriptEnabled = True
myw.ZoomEnabled = True
myw.Visible = True
myw.LoadURL(HTMLStr)
End Sub