CommonDialog. Error de cancelación.

      Para manejar el error interceptable que se produce al pulsar el botón Cancelar de un CommonDialog, tenemos que usar la propiedad .CancelError. Al definir True, el valor de la propiedad, el control de errores pasa a manos del programador, a través del Objeto Err.

      Mediante la instrucción On Error, podemos pasar el manejador de errores a una etiqueta, desde la cual podemos escribir el código para manejar dicho error.

     Private Sub Command1_Click()
          CommonDialog1.CancelError = True
          'En caso de suceder cualquiera de los errores interceptables del control
          'CommonDialog1, se pasa el control del programa, a la etiqueta ErrorCommonDialog1
          On Error GoTo ErrorCommonDialog1
          CommonDialog1.ShowOpen
          ' Si no hay error sale del Sub
          Exit Sub
     ErrorCommonDialog1:
          'Usando el objeto Err
          Select Case Err
               Case cdlCancel
                    'la cancelación del método ShowOpen, produce un error interceptable
               Case Else
                    MsgBox Err.Number & " " & Err.Description, , "Error"
          End Select
     End Sub