测试通过:
Dim theImage As Image = Image.FromFile("c:\aaa\IMG_20170625_142200.jpg")
Dim propItems() As System.Drawing.Imaging.PropertyItem = theImage.PropertyItems
Dim propItem As System.Drawing.Imaging.PropertyItem = theImage.GetPropertyItem(36867)
Dim propItemValue() As Byte = propItem.Value
Dim dateTimeStr As String = System.Text.Encoding.ASCII.GetString(propItemValue).Trim(chr(0))
Dim dt As Date = DateTime.ParseExact(dateTimeStr, "yyyy:MM:dd HH:mm:ss",System.Globalization.CultureInfo.InvariantCulture)
MessageBox.show(dt)