blue circle isn't drawing and print isn't working?

[SMcNeill]

This one is simple.  You're using two different variables of the same name and different types. 

Code: (Select All)

Dim Shared cBlue As _Unsigned Long

In your program, you're using the variable named cBlue...   But you DIM SHARED cBlue~&....   those aren't the same variables.

cBlue defaults to a single.   cBlue~& is an unsigned long.   

singles don't carry blue transparency values, so they get rounded to 0.