Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Page1.Initialize("Page1")
NavControl.ShowPage(Page1)
Page1.RootPanel.LoadLayout("1")
WebView1.LoadUrl("http://www.google.com")
End Sub
Sub WebView1_PageFinished (Success As Boolean, Url As String)
Dim cvs As Canvas
cvs.Initialize(ImageView1)
Dim dest As Rect
dest.Initialize(0, 0, ImageView1.Width, ImageView1.Height)
cvs.DrawView(WebView1, dest)
cvs.Refresh
End Sub