Case EXIFPropertyName.XAuflösung
      exifResult.Auflösung = ToInt16(propItem.Value, 0).ToString

    Case EXIFPropertyName.YAuflösung
      exifResult.Auflösung += " x " + ToInt16(propItem.Value, 0).ToString
      
    End Select
  Next
  Return exifResult

  End Function

  Private Shared Sub SetDefaults(ByRef resEXIF As EXIFDataStruct)
    With resEXIF
      .Kameramodell = "n/a"
      .Belichtungszeit = "n/a"
      .Blende = "n/a"
      .ISO = "n/a"
      .Brennweite = "n/a"
      .Auflösung = "n/a"
    End With
  End Sub
End Class