Private Type BITMAP '14 bytes
   bmType As Long
   bmWidth As Long
   bmHeight As Long
   bmWidthBytes As Long
   bmPlanes As Integer
   bmBitsPixel As Integer
   bmBits As Long
End Type

loadpicture'ешь в него картинку.

А если рисунки по 10-20Мб?

Всетаки лучше бинарное чтение заголовка файла.

Описание формата BMP для Window 3.0 (DIB)
    =========================================
    Основным отличием файлов нового формата (DIB) - Device
 Independent Bitmap (аппаратно-независимый битовый образ) является
 то, что в них используется кодировка цветов с одной битовой плос-
 костью.
    Файлы битовых образов нового формата начинаются со структуры
 BITMAPFILEHEADER:

    typedef struct tagBITMAPFILEHEADER {
        word bfType; //тип файла (для битового образа - BM)
        dword bfSize; //размер файла в dword
        word bfReserved1; //не используется
        word bfReserved2; //не используется
        dword bfOffbits; //смещение данных битового образа от
                                //заголовка в байтах

    }
    Непосредственно за ней располагается структура BITMAPINFO, со-
 держащая всю информацию о битовом образе. Она делится на две час-
 ти: структуру BITMAPINFOHEADER, описывающей размеры и цветовой
 формат битового образа, и массив структур RGBQUAD, определяющей
 цветовую палитру:

    typedef struct tagBITMAPINFO {
    BITMAPINFOHEADER bmiHeader;
    RGBQUAD bmiColors[1];
    }

    typedef struct tagBITMAPINFOHEADER {
        dword biSize; //число байт, занимаемых структурой
                                //BITMAPINFOHEADER
        dword biWidth; //ширина битового образа в пикселах
        dword biHeight; //высота битового образа в пикселах
        word biPlanes; //число битовых плоскостей устройства
        word biBitCount; //число битов на пиксель
        dword biCompression; //тип сжатия
        dword biSizeImage; //размер картинки в байтах
        dword biXPelsPerMeter;//горизонтальное разрешение устройства,
                                //пиксел/м
        dword biYPelPerMeter; //вертикальное разрешение устройства,
                                //пиксел/м
        dword biClrUsed; //число используемых цветов
        dword biClrImportant; //число "важных" цветов
    } BITMAPINFOHEADER;

JPEG/JFIF формат файла:

• заголовок (2 байта): $ff, $d8 (SOI) (эти два идентифицируют JPEG/JFIF файл)
• для JFIF файлов, сегмент APP0 немедленно следует за маркером SOI, смотрите ниже
• любое число "сегментов" (подобно IFF (Image File Format) кускам), смотрите ниже
• хвостовик (2 байта): $ff, $d9 (EOI)

Формат сегмента:

• заголовок (4 байта):
       $ff идентифицирует сегмент
        n тип сегмента (один байт)
      sh, sl размер сегмента, включая эти два байта, но не включая $ff и байт типа. Примечание, не порядок Intel: сначала старший байт, затем младший байт!
• содержимое сегмента, максимум 65533 байта.

Примечания:
• Есть сегменты без параметров (обозначенные '*'), которые не имеет спецификацию размера (и никакого содержания), просто $ff и байт типа.
• Любое число $ff байтов между сегментами легальное и должно быть пропущено.

Типы сегментов:

   *TEM = $01 обычно вызывает ошибки декодирования, может быть проигнорировано
    SOF0 = $c0 Начало Кадра (Baseline JPEG), относительно деталей смотрите ниже
    SOF1 = $c1 dito
    SOF2 = $c2 обычно неподдерживаемый
    ...
    SOF9 = $c9 для арифметического кодирования, обычно не поддерживается
    SOF10 = $ca обычно неподдерживаемый
    ...
    HT = $c4 Определение Таблицы Хаффмана, относительно деталей смотрите ниже
    JPG = $c8 неопределенный/зарезервированный (вызывает ошибки декодирования)
    AC = $cc Определение Арифметической Таблицы, обычно не поддерживается
   *RST0 = $d0 RSTn используются для синхронизации, может быть проигнорировано
    ...
   *RST7 = $d7
    SOI = $d8 Начало Изображения
    EOI = $d9 Конец Изображения
    SOS = $da Начало Сканирования, относительно деталей смотрите ниже
    QT = $db Определение Таблицы Квантования, относительно деталей смотрите ниже
    NL = $dc обычно неподдерживаемый, игнорировать
    RI = $dd Определение Интервала Перезапуска, относительно деталей смотрите ниже
    APP0 = $e0 JFIF маркеры сегментов приложения, относительно деталей смотрите ниже
    APP15 = $ef игнорировать
    COM = $fe Комментарий, относительно деталей смотрите ниже

Все другие типы сегментов резервируются и должны быть проигнорированы (пропущены).
 
SOF0: Начало Кадра 0:
• $ff, $c0 (SOF0)
• длина (старший байт, младший байт), 8+components*3
• точность данных (1 байт) в битах/единицу, обычно 8 (12 и 16 не поддерживается большин-ством программного обеспечения)
• высота изображения (2 байта, High-Low), должно быть >0, если DNL не поддерживается
• ширина изображения (2 байта, High-Low), должно быть >0, если DNL не поддерживается
• количество компонентов (1 байт), обычно 1 = черно-белый, 3 = цвет YCbCr или YIQ, 4 = цвет CMYK)
• для каждого компонента: 3 байта
? идентификатор компонента (1 = Y, 2 = Cb, 3 = Cr, 4 = I, 5 = Q)
? показатели дискретизации (бит 0-3 вертикальной, 4-7 горизонтальной)
? номер таблицы квантования