Dim lWidth&, lHeight& Dim ObjStd As New StdPicture Set ObjStd = LoadPicture("d:\superdeb.jpg") lWidth = Me.ScaleX(ObjStd.Width, vbHimetric, vbPixels) lHeight = Me.ScaleY(ObjStd.Height, vbHimetric, vbPixels) Set ObjStd = Nothing MsgBox lWidth & " x " & lHeight & " pixels"