Dim tInfo As tpBitMapFileInfo
Dim tBytes() As Byte
Open "setup.bmp" For Binary As #1
Get #1, 1, tInfo
BytesOn = tInfo.FileHeader.bfOffBits
BytesEnd = tInfo.FileHeader.bfSize
ReDim tBytes(BytesOn To BytesEnd)
Get #1, BytesOn, tBytes
Close #1
tInfo.FileHeader.bfSize = tInfo.FileHeader.bfSize + (tInfo.FileHeader.bfSize - tInfo.FileHeader.bfOffBits) + 1
tInfo.InfoHeader.biHeight = tInfo.InfoHeader.biHeight * 2
Open "Sy.bmp" For Binary As #1
Put #1, 1, tInfo
Put #1, tInfo.FileHeader.bfOffBits, tBytes()
Put #1, LOF(1) + 1, tBytes()
Close #1