Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Private Sub Command1_Click() CommonDialog1.CancelError = True On Error Resume Next CommonDialog1.ShowOpen If Err.Number = 32755 Then '* Se pulso cancelar MsgBox Err.Description End If End Sub