D
Because it is not running under Basic4ppc! It needs some data from http://www.b4x.com/forum/code-samples-tips/4665-advanced-read-basic4ppc-thread-parameters.html that are not present, specifically fixX and fixY that are returning negative values and stopping it drawing itself. It also seems to need cPPC but I don't know why. You can fool it by adding the data slots.Can you tell me why it doesn't work?
Imports System.Threading
...
Thread.SetData(Thread.GetNamedDataSlot("fixX"), CDbl(1))
Thread.SetData(Thread.GetNamedDataSlot("fixY"), CDbl(1))
Thread.SetData(Thread.GetNamedDataSlot("cPPC"), True)
list = New bList(Me)
...
[FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]item.BackColor3 = color3 [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#008000][FONT=Courier New][SIZE=2][COLOR=#008000][FONT=Courier New][SIZE=2][COLOR=#008000]' the first color of the second gradient[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]item.BackColor4 = color4 [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#008000][FONT=Courier New][SIZE=2][COLOR=#008000][FONT=Courier New][SIZE=2][COLOR=#008000]' the second color of the second gradient[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]