Zitat:

... So trivial ist es also nicht...

Option Explicit
 
Private Type IFD_Entry
    Field_Tag As Integer
    Field_Type As Integer
    Value_Count As Long
    Value_Offset As Long 'To save time and space the Value Offset contains the 
    ' Value instead of
                         'pointing to the Value if and only if the Value fits 
                         ' into 4 bytes.
                         'Auszug aus TIFF6.pdf ( 
                         ' http://www.wotsit.org/download.asp?f=tiff6)
End Type
 
Private Const ImageLength_Tag = 257
Private Const ImageWidth_Tag = 256
 
Dim IFD_Field As IFD_Entry
 
Private Sub Form_Load()
    Me.OLEDropMode = vbOLEDropManual
End Sub
 
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As _
  Integer, Shift As Integer, X As Single, Y As Single)
    Dim ImageFileDirectory_Offset As Long
    Dim DirectoryEntries_Count As Integer
    Dim i As Integer
    Dim Message As String
 
    Open Data.Files.Item(1) For Binary As #1
    Get #1, 5, ImageFileDirectory_Offset
    Get #1, ImageFileDirectory_Offset + 1, DirectoryEntries_Count
    For i = 0 To DirectoryEntries_Count * Len(IFD_Field) - 1 Step Len(IFD_Field)
        Get #1, ImageFileDirectory_Offset + i + 3, IFD_Field
        If IFD_Field.Field_Tag = ImageLength_Tag Then
            Message = Message & "Höhe: " & CStr(IFD_Field.Value_Offset) & vbCrLf
        End If
        If IFD_Field.Field_Tag = ImageWidth_Tag Then
            Message = Message & "Breite: " & CStr(IFD_Field.Value_Offset) & _
              vbCrLf
        End If
    Next
    MsgBox Message
    Close
End Sub

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...