Private Sub imgIcon_Click()
Dim Bildpfad, Bildname As String
 
On Error GoTo fehler ' darf nicht auskommentiert werden
 
    With cmdIcon
        .CancelError = True
        ' Filter setzen - hier wird festgelegt, mit welchem Format
        ' eine Datei geöffnet wird.
        .Filter = "BMP Dateien (*.bmp)|*.bmp"        
        .Filter = "Icons (*.ico")|*.ico"
 
        ' Dialogfeld Öffnen anzeigen
        .ShowOpen
            If .FileName <> "" Then
                Bildpfad = .FileName      'komplette Pfad
                Bildname = .FileTitle     'Nur der Dateiname
                lblBildname.Caption = Bildname
                imgIcon.Picture = LoadPicture(Bildpfad)
            Else
                Exit Sub
            End If
    End With
 
Exit Sub
 
fehler:
 
End Sub