Как (самому) нарисовать заливку в стиле Vista-Explorer? - VB

Формулировка задачи:

Нарисовать надо "самому", т.к. нужно применить независимо от тек. стиля, не говоря о том, что волшебное слово

SetWindowTheme g_hwndRebar, StrPtr(<стиль Explorer>),  'стиль для Висты

конкретно для такой заливки до сих пор не найдено.
Пытаюсь делать это с помощью CreateGradientBackground
(спасибо Бенедикту, исходник ф-ции напр. тут: https://www.sql.ru/forum/actualfile.aspx?id=8878628)

CreateGradientBackground( _
    hwndRef  , _
      ,  Height  , _
   Optional  Color1 = , _
   Optional  Color2 = , _
   Optional  Color3 = )  IPictureDisp

Как видно из картинки(слева), применение

g_picBackground = _
CreateGradientBackground(Form1.Picture2.hWnd, Form1.Picture2., Form1.Picture2.Height, , , )

дает ну не совсем как в оригинале (справа)
Т.е. либо цвета напутал, либо все же там 4 цвета, а не три.
Анализировал цвета спец. программой:
Верхняя полоска:
12695690
10456648
Нижняя полоска:
7824148
11247700
Т.е. так понимаю в центре переход не градиентом, а ступенькой:
10456648=>7824148
Есть еще пример как это рисовать:
http://www.vbforums.com/showthread.php?t=547618
Но он не на vb6 и там цвета указаны так:

clrBGTop1  Color = Color.FromArgb(, , , )
     clrBGTop2  Color = Color.FromArgb(, , , )
     clrBGBottom1  Color = Color.FromArgb(, , , )
     clrBGBottom2  Color = Color.FromArgb(, , , )
     clrBGBorder  Color = Color.FromArgb(, , , )
     clrBGGreen  Color = Color.FromArgb(, , , )

Очевидно верхние 4 строчки это основа для двух градиентов.
Пытался мудрить:

Get4ByteHex(val)
     s  
    s = Hex(val)
      Len(s) < 
        s =  & s
    
    Get4ByteHex = Right(s, )

 Get1ByteHex(val)
     s  
    s = Hex(val)
      Len(s) < 
        s =  & s
    
    Get1ByteHex = Right(s, )

 GetAlpha(val)
     s  
    s = Get4ByteHex(val)
    GetAlpha = CLng( & Left(s, ))

 GetRed(val)
     s  
    s = Get4ByteHex(val)
    GetRed = CLng( & (s, , ))

 GetGreen(val)
     s  
    s = Get4ByteHex(val)
    GetGreen = CLng( & (s, , ))

 GetBlue(val)
     s  
    s = Get4ByteHex(val)
    GetBlue = CLng( & Right(s, ))

 GetARGB(a, r, g, b)  
     s  
    s =  & Get1ByteHex(a) & Get1ByteHex(r) & Get1ByteHex(g) & Get1ByteHex(b)
    GetARGB = CLng(s)

 GetMyColor(a, r, g, b)  
     ARGBval  
     RGBval  
    ARGBval = GetARGB(a, r, g, b)
    RGBval = RGB(GetRed(ARGBval), GetGreen(ARGBval), GetBlue(ARGBval))
    GetMyColor = RGBval
 

Мудрил вот так:

g_picBackground = CreateGradientBackground(Form1.Picture2.hWnd, _ 
    Form1.Picture2., Form1.Picture2.Height, GetMyColor(, , , ), _
GetMyColor(, , , ), GetMyColor(, , , ))

Но цвета вообще какие-то непохожие и в голубизну отдают.
Т.е. вопрос как бы правильно этот стиль нарисовать?

Решение задачи: «Как (самому) нарисовать заливку в стиле Vista-Explorer?»

textual
                            Листинг программы 
                        
                            <font color="blue">Static</font> bSetup <font color="blue">As</font> <font color="blue">Boolean</font>
 <font color="blue">If</font> bSetup <font color="blue">Then</font> <font color="blue">Exit</font> <font color="blue">Sub</font>