Sub wv_OverrideUrl(url As String) As Boolean
AskUser(url)
Return True
End Sub
Sub AskUrl(url As String)
Msgbox2Async("Load page?", "Title", "Yes", "Cancel", "No", Null, False)
Wait For Msgbox_Result (Result As Int)
If Result = DialogResponse.POSITIVE Then
wv.LoadUrl(url)
End If
End Sub