FIX: Canceling BeforeNavigate Shows Dialog with 'X'

MORE INFORMATION

   ********** Start of sample code in Visual C++ (MFC) **********
      // OnClickNavigate is a button-click handler
      void CMyDialog::OnClickNavigate()
      {
         try
         {
            COleVariant var;
            m_browser.Navigate ("http://www.microsoft.com", var, var, var,
               var);
         }
         catch (COleDispatchException* pExcept)
         {
            // if the error code is nonzero we want the error to occur
            if (pExcept->m_wCode)
            {
               pExcept->Delete ();
               throw;
            }
            // if the error code is zero then we just eat it
            else
               pExcept->Delete ();
         }
      }

      void CMyDialog::BeforeNavigate(LPCTSTR URL, long Flags, LPCTSTR
   TargetFrameName, VARIANT FAR* PostData,
   LPCTSTR Headers, BOOL FAR* Cancel)
      {
         // cancel navigation if user clicks on "no"
         if (IDNO == MessageBox ("Confirm Navigate", "", MB_YESNO))
            *Cancel = TRUE;
      }
   ********** End of sample code in Visual C++ (MFC) **********

   ********** Start of sample code in Visual Basic **********
      Private Sub cmdNavigate_Click()
         ' set error handler
         On Error GoTo ErrorHandler
         WebBrowser1.Navigate "http://www.microsoft.com"
         ' reset error handler to default
         On Error GoTo 0
         Exit Sub
      ErrorHandler:
         ' if error code is not 287, let error occur
         If Err <> 287 Then Err.Raise Err
         On Error GoTo 0
      End Sub

    Private Sub WebBrowser1_BeforeNavigate(ByVal URL As String, ByVal Flags
     As Long, ByVal TargetFrameName As String, PostData As Variant,
     ByVal Headers As String, Cancel  As Boolean)
          ' cancel navigation if user clicks "no"
         If vbNo = MsgBox("Confirm Navigate", vbYesNo) Then
            Cancel = True
         End If
      End Sub
   ********** End of sample code in Visual Basic **********