Private Sub Command1_Click()
  On Error Resume Next
  With CommonDialog1
    .CancelError = True
    .Filter ="alle Bilddateien (*.ico; *.bmp; *.gif;" & _
      "*.jpg)|*.ico;*.bmp;*.gif;*.jpg"
   .ShowOpen
    If Err = 0 Then
      txtBildPfad.Text = .Filename
    End If
  End With
End Sub