Чтение/запись большого изображения БЫСТРО

Function getBytesArr(image1 As Bitmap) As Byte()
        Dim x, y, i As Integer
        Dim arr(image1.Width * image1.Height * 3) As Byte
        i = 0
        Dim maxprog As Long = arr.Length * 2
        For x = 0 To image1.Width - 1
            For y = 0 To image1.Height - 1
                arr(i) = image1.GetPixel(x, y).R : i += 1
                arr(i) = image1.GetPixel(x, y).G : i += 1
                arr(i) = image1.GetPixel(x, y).B : i += 1
                My.Settings.progress(2) = CDbl((i / maxprog) * 100)
            Next
        Next
        Return arr
    End Function

For Xcount = 0 To myBitmap.Width - 1
                    Dim Ycount As Integer
                    For Ycount = 0 To myBitmap.Height - 1
                        Dim a As Integer, b As Integer, c As Integer
                        a = CInt(img_bytes(FPos)) : FPos += 1
                        b = CInt(img_bytes(FPos)) : FPos += 1
                        c = CInt(img_bytes(FPos)) : FPos += 1
                        myBitmap.SetPixel(Xcount, Ycount, Color.FromArgb(255, CInt(a), CInt(b), CInt(c)))
                        My.Settings.progress(0) += 1
                        My.Settings.progress(2) = CDbl((My.Settings.progress(0) / My.Settings.progress(1)) * 100)
                        If My.Settings.progress(2) >= 100 Then
                            My.Settings.progress(2) = 99
                        Else
                        End If
                    Next Ycount
                Next Xcount
                myBitmap.Save(fileOut)