Public ReadOnly Property HasThumbnail() As Boolean
    Get
      Return IsPropertyDefined(TagNames.ThumbnailData)
    End Get
  End Property
  Private mThumb As Image
  Public ReadOnly Property Thumbnail() As Image
    Get
      If mThumb Is Nothing Then
        ' Let's try to load the thumbnail from the raw bytes!
        Dim thumbData() As Byte = Me.GetProperty(TagNames.ThumbnailData)
        If thumbData IsNot Nothing Then
          Dim thumbStream As New IO.MemoryStream(thumbData)
          Try
            mThumb = Drawing.Image.FromStream(thumbStream)
          Catch ex As Exception
            'Couldn't load the thumbnail :( Reason? Unknown.
          End Try
        End If
      End If
      Return mThumb
    End Get
  End Property

  Private shouldDisposeImage As Boolean
  ''' <summary>
  ''' Reads EXIF data from a file.
  ''' </summary>
  ''' <param name="FileName">Name of file to be loaded</param>
  ''' <param name="loadEntireImage">IF False, then ONLY the EXIF data is loaded, and not the entire image!  This saves a TON of time.  If True, then the entire image is loaded.</param>
  ''' <remarks></remarks>
  ''' <history>
  ''' [altair] 13.06.2004 Created
  ''' </history>
  Public Sub New(ByVal FileName As String, Optional ByVal loadEntireImage As Boolean = False)
    'Me._Image = System.Drawing.Bitmap.FromFile(FileName)
    Dim fileStream As New System.IO.FileStream(FileName, IO.FileMode.Open, IO.FileAccess.Read)
    Me._Image = System.Drawing.Image.FromStream(fileStream, True, loadEntireImage)
    Me.shouldDisposeImage = True 'since we created the bitmap, we are responsible for destroying it
  End Sub

  ''' <summary>
  ''' Disposes unmanaged resources of this class
  ''' </summary>
  ''' <remarks></remarks>
  ''' <history>
  ''' [altair] 10.09.2003 Created
  ''' </history>
  Public Sub Dispose() Implements System.IDisposable.Dispose
    If shouldDisposeImage Then Me._Image.Dispose()
  End Sub

    
    Set(ByVal value As Image)
      If value IsNot Nothing Then
        ' Create a memory stream to write to:
        Dim thumbStream As New IO.MemoryStream()
        ' Save the image to the memory stream:
        value.Save(thumbStream, ImageFormat.Jpeg)

        ' Convert the memory stream to an array of bytes:
        Dim thumbData() As Byte = thumbStream.ToArray

        ' Save the bytes back to the PropertyItems: (a byte array is an undefined type)
        Me.SetProperty(TagNames.ThumbnailData, thumbData, ExifDataTypes.Undefined)

        ' Update our cached thumbnail:
        Me.mThumb = value
      End If
    End Set

Public ReadOnly Property GPSLatitude() As Integer
        Get
            Return Me.GetPropertyInt32(TagNames.GpsLatitude)
        End Get
    End Property

Dim GPSLat As Long = EW.GPSLatitude()

labelLat.Text = GPSLat

Public Shared Sub AddCalibratedMetadata(ByVal img As bitmap)
    Dim exif As New CIPF.ExifWorks(img)
    exif.Description = "Calibrated"
    exif.Dispose()
  End Sub