the example Type bitmap_header should be re-coded as follows:
change all UInteger statements to ULong since, the definition states: unsigned INT32.
Code: Select all
Type bitmap_header Field = 1
As UShort bfType
As ULong bfsize
As UShort bfReserved1
As UShort bfReserved2
As ULong bfOffBits
As ULong biSize
As ULong biWidth
As ULong biHeight
As UShort biPlanes
As UShort biBitCount
As ULong biCompression
As ULong biSizeImage
As ULong biXPelsPerMeter
As ULong biYPelsPerMeter
As ULong biClrUsed
As ULong biClrImportant
End Type