Узнать высоту и ширину в пикселях фала bmp

Private Type BITMAPINFOHEADER '40 bytes
   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
 
Private Type BITMAPFILEHEADER '14 bytes
        bfType As String * 2 ''magic cookie' - must be 'BM'
        bfSize As Long
        bfReserved1 As Integer
        bfReserved2 As Integer
        bfOffBits As Long
End Type
 
Private Type BITMAPINFO
    bmiHeader As BITMAPINFOHEADER
    bmiColors() As Long 'array of RGBQUADs
End Type
 
Dim bmih As BITMAPINFOHEADER
 
Private Sub Form_Load()
hFile = FreeFile
Open ("C:\111.bmp") For Binary As #hFile
    Get #hFile, 15, bmih 'Читаем в структуру
'выводим из структуры ширину и высоту
MsgBox bmih.biWidth & "x" & bmih.biHeight
Close #hFile
End Sub