Anyone interested in this?

I dont like banks, I dont know how to use them to their full extent yet, as I do more with types.

I do some basic math to get the gradient bar upon start up:
Global XP_Titlebar%=CreateImage(1,18)
SetBuffer ImageBuffer(XP_Titlebar%)
For t%=0 To 18
Color 230-(t%*8),0,0
Plot 0,t%
Next