Stefan,

Based on your previous post I have a basic Fucntion
****
Function img()
  Dim obj As ImageProperties

  Set obj = New ImageProperties

   With obj
       .OpenImage ("c:\picture.jpg")
          Debug.Print "Height: " & .Height
          Debug.Print "Width: " & .Width
          Debug.Print "HorizontalResolution: " & .HorizontalResolution
          Debug.Print "VerticalResolution: " & .VerticalResolution
          Debug.Print "PixelFormat: " & .PixelFormat
         
          'For Each it In .Item()
              'If IsNull(it) = False Then Debug.Print "Item: " & it
          'Next it
   End With
   
   obj.CloseImage

  Set obj = Nothing

End Function
****

Is there a way to make the commented out section work,

          For Each it In .Item()
             If IsNull(it) = False Then Debug.Print "Item: " & it
          Next it

that is to loop through all the Item tags to basically make a complete
listing of all the image properties? How do you enumerate them all in a loop
function without having to explicitly having to code each tag?

Could you also point me in the right direction for getting so basic info
about classes and objects.

Thank you,

Daniel