Extract exif tag of an image with Visual Basic

Extract thumbnail, gps, extra and exif tag with Visual Basic and GdPicture ActiveX

Dim Imaging As Object
Dim nCpt As Long

Set Imaging = CreateObject("gdpicturepro5.imaging")

Imaging.SetLicenseNumber ("0012345678910111213141516") 'Demo code version

Imaging.CreateImageFromFile ("c:\image.jpg")

For nCpt = 1 To Imaging.ExifTagCount

msgbox "Tag Name: " & Imaging.ExifTagGetName(nCpt)
msgbox "Tag Value : " & Imaging.ExifTagGetValueString(nCpt)

Next nCpt

Imaging.CloseNativeImage

Set Imaging = Nothing