'Verweise: PresentationCore, WindowsBase, System.Xaml
Imports System.Windows.Media.Imaging 
Public Class Form1
  Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
    Handles MyBase.Load
   Dim img As BitmapSource = BitmapFrame.Create(New Uri("xyz.jpg", _
   UriKind.Relative))
   Dim meta As BitmapMetadata = CType(img.Metadata, BitmapMetadata)
   MessageBox.Show(meta.DateTaken)       ' Aufnahmedatum
  End Sub
End Class