private Sub WebControl_Navigating (
   ByVal sender As Variant, 
   ByVal url As String, 
   ByVal targetFrameName As String
) As Boolean