Determining image width and height

[THEROB]

Private Sub Form_Load()
    Dim pic As IPictureDisp
    Dim iWidthPix As Long
    Dim iHeightPix As Long
 
 
    Set pic = LoadPicture("c:\whatever.bmp")
    GetSize pic, iWidthPix, iHeightPix
 
End Sub
 
Private Sub GetSize(pic As IPictureDisp, iWidthPix As Long, iHeightPix As Long)
    iWidthPix = ScaleX(pic.Width, vbHimetric, vbPixels)
    iHeightPix = ScaleX(pic.Height, vbHimetric, vbPixels)
 
End Sub