Type BitmapInfoHeader
    biSize As Long
    biWidth As Long
    biHeight As Long
    biPlanes As Integer
    biBitCount As Integer
    biCompression As Long
    biSizeImage As Long
    biXPelsPerMeter As Long
    biYPelsPerMeter As Long
    biClrUsed As Long
    biClrImportant As Long
End Type

Public Type BitmapFileHeader
    bfType      As Integer
    bfSize      As Long
    bfReserved1 As Integer
    bfReserved2 As Integer
    bfOffBits   As Long
End Type

Sub GetSize()
Dim bih As BitmapInfoHeader
Dim bfh As BitmapFileHeader
  Open  "c:\dr14.bmp"  For Binary Access Read As  1 
  Get  1 , , bfh
  Get  1 , , bih
  MsgBox bih.biWidth &  " X "  & bih.biHeight
  Close
End Sub