[shelbym]

I was able to do this with the ExifReader class found here: Exif reader class/dll for VB 6

Then to use is, try something like:

Sub ReadEXIFData()
    Dim objExif As New ExifReader
    Dim txtExifInfo As String
    
    objExif.Load "D:\Temp\EXIF\2.JPG"
    txtExifInfo = objExif.Tag(Orientation)
    MsgBox txtExifInfo
End Sub

Hope that helps,

-Shelby