Quickest way to paint a pixel?

Hi all

I have finished my suite of Liquid Crystal Display prototyping macros.

To recreate a bitmap from a specific bit/byte order file that mirrors the LCD buffer, I am using Photo-Paint to regenerate the bitmap.

Currently I am using this routine.

       With CorelScript
            .RectangleTool 0, 0, 0, 0, False, False, True
            .FillSolid 8, 0, 0, 0, 0
            For row = 0 To rowMax
                pixelRow = row * 8
                For column = 0 To colMax
                    myByte = myByteArray(row, column)
                    For myBit = 0 To 7
                        If (myByte And (2 ^ myBit)) <> 0 Then
                            .Rectangle column, pixelRow + myBit, column, pixelRow + myBit
                        End If
                    Next myBit
                Next column
            Next row
       End With

Is there a quicker way to paint pixels, or perhaps a clever way to process the array of bytes into a black and white image.

Thanks

Peter