Tiff multipage - no color!

See more:

VB

GDI+

I have been playing with this code Multipage Tiff, Thanks bijulsoni!

I want to try and make a color image, I am trying to understand the concept, but missing something. I have read Bob Powells work on lockbits. Anyway here my not working version:

Private Function ConvertToBitonalClr(ByVal original As Bitmap) As Bitmap
    Dim source As Bitmap = Nothing
    ' If original bitmap is not already in 32 BPP, ARGB format, then convert
    If original.PixelFormat <> PixelFormat.Format32bppArgb Then
      source = New Bitmap(original.Width, original.Height, PixelFormat.Format32bppArgb)
      source.SetResolution(original.HorizontalResolution, original.VerticalResolution)
      Using g As Graphics = Graphics.FromImage(source)
        g.DrawImageUnscaled(original, 0, 0)
      End Using
    Else
      source = original
    End If
    ' Lock source bitmap in memory
    Dim sourceData As BitmapData = source.LockBits(New Rectangle(0, 0, source.Width, source.Height), ImageLockMode.[ReadOnly], PixelFormat.Format32bppArgb)
    ' Copy image data to binary array
    Dim imageSize As Integer = sourceData.Stride * sourceData.Height
    Dim sourceBuffer As Byte() = New Byte(imageSize - 1) {}
    Marshal.Copy(sourceData.Scan0, sourceBuffer, 0, imageSize)
    ' Unlock source bitmap
    source.UnlockBits(sourceData)
    ' Create destination bitmap
    Dim destination As New Bitmap(source.Width, source.Height, PixelFormat.Format24bppRgb)
    ' Lock destination bitmap in memory
    Dim destinationData As BitmapData = destination.LockBits(New Rectangle(0, 0, destination.Width, destination.Height), ImageLockMode.[WriteOnly], PixelFormat.Format1bppIndexed)
    ' Create destination buffer
    imageSize = destinationData.Stride * destinationData.Height
    Dim destinationBuffer As Byte() = New Byte(imageSize - 1) {}
    Dim sourceIndex As Integer = 0
    Dim destinationIndex As Integer = 0
    Dim pixelTotal As Integer = 0
    Dim destinationValue As Byte = 0
    Dim height As Integer = source.Height
    Dim width As Integer = source.Width
    ' Iterate lines
    For y As Integer = 0 To height - 1
      sourceIndex = y * sourceData.Stride
      destinationIndex = y * destinationData.Stride
      destinationValue = 0
      ' Iterate pixels
      For x As Integer = 0 To width - 1
        Dim b As Integer = sourceBuffer(sourceIndex)
        Dim g As Integer = sourceBuffer(sourceIndex + 1)
        Dim r As Integer = sourceBuffer(sourceIndex + 2)
        'this is me thinking it would be this simple =)
        destinationBuffer(destinationIndex + 1) = b
        destinationBuffer(destinationIndex + 2) = g
        destinationBuffer(destinationIndex + 3) = r
        sourceIndex += 4
      Next
    Next
    ' Copy binary image data to destination bitmap
    Marshal.Copy(destinationBuffer, 0, destinationData.Scan0, imageSize)
    ' Unlock destination bitmap
    destination.UnlockBits(destinationData)
    ' Return
    Return destination
  End Function

Thanks for looking and some help in the right direction.