Retrieve Bitmap info

[geopeter]

Hi everybody,
Well what I want really is to retrieve the bitmap information (The Header infos) of a .bmp file. Any help would be great,
Thanks in advance

[BuggyProgrammer]

this:

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 Sub Form_Load()
Dim BIH As BITMAPINFOHEADER
Open "E:\YOURiMAGE.bmp" For Binary As #1
    Get #1, 15, BIH
Close #1
MsgBox BIH.biHeight 'or any of the other things
End Sub