Спасибо, всегда приятно лишний раз взглянуть на множество...
Интересно, по какому алгоритму идет раскраска?
Я пытался немного улучшить цвета и использовал такую функцию: (на C++)

unsigned long Gc(unsigned char cc) //это число, полученное для одной точки 0-255
{
if(!cc)return 0; //черный
int ir,ig,ib;
ir=(GetRValue(StartColor)+cc*RDELTA)%255;
ig=(GetGValue(StartColor)+cc*GDELTA)%255;
ib=(GetBValue(StartColor)+cc*BDELTA)%255;
return RGB(ir,ig,ib);
};
//StartColor - это начальный цвет, цвет фона за границами множества
RDELTA,GDELTA,BDELTA могут быть любыми, например 25,5,3

Как оно на VB, не очень тормозит?