Sub WebView1_OverrideUrl (Url As String) As Boolean
If Url.EndsWith(".pdf") Then
Dim j As HttpJob
j.Initialize("pdf", Me)
j.Download(Url)
Activity.LoadLayout("Layout2")
pdfv.init
Activity.AddView(pdfv,0,0,-1,-1)
pdfv.getpdf(Url)
Return True
Else If Url.IndexOf("mailto:") > -1 Then
Dim Intent1 As Intent
Intent1.Initialize(Intent1.ACTION_VIEW, Url)
StartActivity(Intent1)
Return True
Else
Return False
End If
End Sub
Sub JobDone (Job As HttpJob)
Activity.LoadLayout("Layout2")
End Sub