Private Sub HoleExifInfos(ByVal fName As String)
  picFoto.Image = Image.FromFile(fName)
  tbDateiname.Text = fName
  Dim InfoStruct As EXIFDataStruct = _
    EXIFData.GetEXIFData(Image.FromFile(fName))
  With InfoStruct
    tbKamera.Text = .Kameramodell
    tbAuflöung.Text = .Auflösung
    tbBlende.Text = .Blende
    tbBelichtungszeit.Text = .Belichtungszeit
    tbISO.Text = .ISO
    tbBrennweite.Text = .Brennweite
  End With
End Sub