Sub WebView1_OverrideUrl(Url As String) As Boolean
ToastMessageShow("Loading Page..." & CRLF & Url, False)
'The character below ">" can be anything you want to add to the Link
If Url.StartsWith(">") Then
Dim p As PhoneIntents
StartActivity(p.OpenBrowser(Url))
Else
WebView1.LoadUrl(Url)
End If
Return False
End Sub