Public Sub GetPictureSize(ByVal sFile As String, nWidth As Long, nHeight As _
  Long)
  Dim oPic As New StdPicture
 
  On Error GoTo ErrHandler
  Set oPic = LoadPicture(sFile)
 
  ' Umwandlung von Maßeinheit Himetric nach Pixel erfolgt
  ' normalerweise über ScaleX und ScaleY eines Form-Objekts
  '  nWidth = Form1.ScaleX(oPic.Width, vbHimetric, vbPixels)
  '  nHeight = Form1.ScaleY(oPic.Height, vbHimetric, vbPixels)
 
  nWidth = oPic.Width / 26.46
  nHeight = oPic.Height / 26.46
 
  Set oPic = Nothing
  On Error GoTo 0
  Exit Sub
 
ErrHandler:
End Sub

Dim nWidth As Long
Dim nHeight As Long
GetPictureSize "Datei.jpg", nWidth, nHeight
MsgBox "Größe: " & CStr(nWidth) & " x " & CStr(nHeight) & " Pixels"

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de