Private Sub AxWebBrowser1_BeforeNavigate2(ByVal sender As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_BeforeNavigate2Event) Handles AxWebBrowser1.BeforeNavigate2
Const PROTOCOL1 As String = "BUTTON1ENABLE://"
Dim s As String = e.uRL
If s.Substring(0, PROTOCOL1.Length) = PROTOCOL1 Then
Me.Button1.Enabled = Boolean.Parse(s.Substring(PROTOCOL1.Length))
e.cancel = True
Return
End If
End Sub