private Sub WebControl_Navigated (
   ByVal sender As Variant, 
   ByVal arg As String
) As Boolean