Инверсия цвета через структуру формата BMP

Structure BITMAPFILEHEADER
        Dim bfType As Short
        Dim bfSize As Integer
        Dim bfReserved1 As Short
        Dim bfReserved2 As Short
        Dim bfOffBits As Integer
    End Structure
 
    Structure BITMAPINFOHEADER
        Dim biSize As Integer
        Dim biWidth As Integer
        Dim biHeight As Integer
        Dim biPlanes As Short
        Dim BitCount As Short
        Dim biCompression As Integer
        Dim biSizeImage As Integer
        Dim biXPelsPerMeter As Integer
        Dim biYPelsPerMeter As Integer
        Dim biClrUsed As Integer
        Dim biClrImportant As Integer
    End Structure
 
 Dim BMPFileHeader As New BITMAPFILEHEADER()
        Dim BMPInfoHeader As New BITMAPINFOHEADER()
        Dim NewFileName As String
        Dim Red, Green, Blue As Integer
        Dim i, j As Integer
        Dim Pos As Integer
        Dim Jump As Integer
        Dim BMPWidth As Integer
        Dim Rows As Integer
 
        If FileLen(MyFileName) < 14 Then
            MsgBox(" Длина открываемого файла меньше длины заголовка файла BMP.", MsgBoxStyle.Critical, "Ошибка")
            FileClose(1)
            Exit Sub
        End If
        FileOpen(1, MyFileName, OpenMode.Binary)
        FileGet(1, BMPFileHeader)
        If BMPFileHeader.bfType <> 19778 Then
            MsgBox("Это не файл BMP.", MsgBoxStyle.Critical, "Ошибка")
            FileClose(1)
            Exit Sub
        End If
        FileGet(1, BMPInfoHeader)
        Rows = BMPInfoHeader.biHeight
        If Rows < 0 Then
            MsgBox("Строки файла хранятся сверху вниз. Данный файл не подходит для нашей работы.", MsgBoxStyle.Critical, "Ошибка")
            FileClose(1)
            Exit Sub
        End If
        If BMPInfoHeader.BitCount <> 24 Then
            MsgBox("Глубина цвета не равна 24 бит/пиксел.", MsgBoxStyle.Critical, "Ошибка")
            FileClose(1)
            Exit Sub
        End If
        If BMPInfoHeader.biCompression <> 0 Then
            MsgBox("Применено сжатие. Данный файл не подходит для нашей работы.", MsgBoxStyle.Critical, "Ошибка")
            FileClose(1)
            Exit Sub
        End If
 
        BMPWidth = BMPInfoHeader.biSizeImage / BMPInfoHeader.biHeight
 
        Jump = BMPWidth + BMPInfoHeader.biWidth * 3
        Pos = BMPFileHeader.bfOffBits + BMPInfoHeader.biSizeImage - BMPWidth + 1
        FileClose(1)
        NewFileName = MyFileName.Remove(MyFileName.Length - 4, 4) + "_inverted.bmp"
        FileCopy(MyFileName, NewFileName)
        FileOpen(1, MyFileName, OpenMode.Binary)
        FileOpen(2, NewFileName, OpenMode.Binary)
        For i = 0 To Rows - 1
            For j = 0 To BMPInfoHeader.biWidth - 1
                FileGet(1, Blue, Pos)
                FileGet(1, Green, Pos + 1)
                FileGet(1, Red, Pos + 2)
                Blue = 255 - Blue
                Green = 255 - Green
                Red = 255 - Red
                FilePut(2, Blue, Pos)
                FilePut(2, Green, Pos + 1)
                FilePut(2, Red, Pos + 2)
                Pos += 3
            Next j
            Me.Text = CInt(i * 100 / Rows) & "%"
            Pos -= Jump
        Next i
        Me.Text = "Инверсия цвета"
        FileClose(1, 2)
        PictureBox1.Image = Image.FromFile(MyFileName)
        PictureBox2.Image = Image.FromFile(NewFileName)

        
        Dim bm As Bitmap
        bm = PictureBox1.Image
        Dim bm1 As New Bitmap(bm.Width, bm.Height)
        For j As Integer = 0 To bm.Height - 1
                For i As Integer = 0 To bm.Width - 1
                bm1.SetPixel(i, j, color.FromArgb(255, 255 - bm.GetPixel(i, j).R, 255 - bm.GetPixel(i, j).G, 255 - bm.GetPixel(i, j).B))
                PictureBox2.Image = bm1
            Next
        Next