Dim stream As New System.IO.FileStream("IPG-Datei", _
                                     IO.FileMode.Open, IO.FileAccess.Read)
 
        Dim jpDecoder As New System.Windows.Media.Imaging.JpegBitmapDecoder _
        (stream, _
        System.Windows.Media.Imaging.BitmapCreateOptions.PreservePixelFormat, _
        System.Windows.Media.Imaging.BitmapCacheOption.Default)
 
        Dim jpFrame As System.Windows.Media.Imaging.BitmapFrame = _
          jpDecoder.Frames(0)
 
        Dim md As System.Windows.Media.Imaging.BitmapMetadata = _      
        CType(jpFrame.Metadata,System.Windows.Media.Imaging.BitmapMetadata)