codice:
Private Sub Command2_Click()
  CommonDialog1.CancelError=True
  OnError GoTo ANNULLA
  CommonDialog1.ShowOpen
  Picture11.Picture = LoadPicture(CommonDialog1.filename)
  Picture11.AutoSize = True
  Picture1.AutoRedraw = True
  Picture1.PaintPicture Picture11.Picture, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, 0, 0, Picture11.ScaleWidth, Picture11.ScaleHeight
ANNULLA:
  OnError GoTo 0
End Sub
Con CommonDialog1.CancelError=True intercetti l'errore che si verifica cliccando su cancel