CommonDialog prüfen ob abgebrochen VB6

[jojo4ever]

Wie kann man prüfen ob abgebrochen wurde?

 

[wincnc]

Hallo, hier ein Beispiel:

Private Sub Command1_Click()
On Error GoTo Fehler

  With CommonDialog1
    .CancelError = True
    .ShowOpen
  End With
  
  Exit Sub
  
Fehler:
  If Err.Number = 32755 Then
    MsgBox "Abbruch"
  Else
    MsgBox Err.Description, vbExclamation, "Fehler"
  End If
End Sub

 

[jojo4ever]

klappt thx