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

[TerryRitchie]

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.

Actually, I think I recall where the delusion came from... at some point someone said that if you declare a FUNCTION with a type, ie

Code: (Select All)

Function MyFunction~& ( <params here/> )
    MyFunction~& = <some value/>
End Function

that you don't need the type suffix when you call it, so that calling 

Code: (Select All)

MyFunction~&(a, b, c)

gets the same value as 

Code: (Select All)

MyFunction(a, b, c)

Whether that's true, I have no idea!

The same for CONSTants

CONST BRIGHTRED~& = _RGB32(255, 0, 0)
.. a few moments later ...
CIRCLE(100, 100), 100, BRIGHTRED

The _UNSIGNED LONG type identifier ( ~& ) is not needed at the end of a constant.