Fixed the damn thing
the following Lines...
Create a bitmap for each DC. DCs are required
> ' for a number of GDI functions.
> '
> ' Monochrome bitmaps.
> '
> lBmAndBack = CreateBitmap(x, y, 1&, 1&, 0&)
> lBmAndObject = CreateBitmap(x, y, 1&, 1&, 0&)
> '
> ' Color Compatible bitmaps.
should read...
Create a bitmap for each DC. DCs are required
> ' for a number of GDI functions.
> '
> ' Monochrome bitmaps.
> '
> lBmAndBack = CreateBitmap(x, y, 1&, 1&, byval 0&)
> lBmAndObject = CreateBitmap(x, y, 1&, 1&, byval 0&)
> '
> ' Color Compatible bitmaps.