WebView1.LoadHtml($"
<a href="OpenPDF">Link1</a>
<br>
<br>
<a href="OpenVideo">Link2</a>
"$)
Sub WebView1_OverrideUrl (Url As String) As Boolean
Dim Tag As String = Url.SubString2(Url.LastIndexOf("/") +1,Url.Length)
Select Tag
Case "OpenPDF"
Log("PDF")
Return False
Case "OpenVideo"
Log("Video")
Return False
End Select
End Sub