Get Image Dimensions

Get the dimensions of any image file that can be loaded into an Image box.

Preparations
Add 1 Image Box to your form.
Set the Image Box Stretch property to false and the Visible property to false.

Form Code

Private Sub Form_Load()
Image1.Picture = LoadPicture("c:\mypic.gif")
'You will get the image dimensions in pixels. to get them in Twips scale, remove
' the "/ Screen.TwipsPerPixelY" and "/ Screen.TwipsPerPixelX" below.
MsgBox "Image Height: " & Image1.Height / Screen.TwipsPerPixelY & _ " Image width: " & Image1.Width / Screen.TwipsPerPixelX
End Sub