CAN someone please get the graphics in this to work?

[SMcNeill]

You're not sharing your colors to the SUB so they're all blank:

' Define colors with Alpha Channel (fully opaque)
Dim Shared PlayerColor As _Unsigned Long
Dim Shared TapeColor As _Unsigned Long
Dim Shared OxideTapeColor As _Unsigned Long
Dim Shared RollerColor As _Unsigned Long