Преобразование изображений в BMP - Visual Basic .NET

Формулировка задачи:

Доброго времени суток! Я знаю такой класс как

Bitmap

, но к сожалению он оказался очень медленным для банального чтения(

тестировал на разных компах, и не слабых скажу вам!)

. Прошу указать какие есть ещё возможности преобразования изображений в BMP "на лету"(то бишь сразу в последовательность байтов без промежуточного сохранения в файл). Вот так я читал Bitmap'ом:

                    Листинг программы
                
 
                        
                          
                    
    Function getBytesArr(myBitmap As Bitmap) As Byte()
        Dim i As Integer = 0
        Dim arr(myBitmap.Height * myBitmap.Width * 3) As Byte
        For x = 0 To myBitmap.Width - 1
            For y = 0 To myBitmap.Height - 1
                arr(i) = myBitmap.GetPixel(x, y).R : i += 1
                arr(i) = myBitmap.GetPixel(x, y).G : i += 1
                arr(i) = myBitmap.GetPixel(x, y).B : i += 1
            Next
        Next
        Return arr
    End Function

Решение задачи: «Преобразование изображений в BMP»

textual
                            Листинг программы 
                        
 
                        
                          
                    
If bm.PixelFormat = Imaging.PixelFormat.Format24bppRgb Then
    Dim n As Integer = bm.Height * bm.Width * 3
    For i = 0 To n - 2 Step 3
        swap(hi(i + 2), hi(i))
    Next
End If
'…
Private Sub swap(ByRef v1 As Byte, ByRef v2 As Byte)
    v1 = v1 Xor v2
    v2 = v1 Xor v2
    v1 = v1 Xor v2
End Sub