This code will get the Height and Width of a image.

Start a new project and add a Label. Then cut and paste
the code below.


===============================================================

Private Sub Form_Load()
'Replace the path to your image with this one
Image1.Picture = LoadPicture("c:\My Documents\My Pictures\gofish.jpg")
'You will get the image dimensions in pixels. to get them in Twips scale, remove
' the "/ Screen.TwipsPerPixelY" and "/ Screen.TwipsPerPixelX" below.
Label1.Caption = "Image Height: " & Image1.Height / Screen.TwipsPerPixelY & _
" Image width: " & Image1.Width / Screen.TwipsPerPixelX
End Sub