ник: час
Спасибо за совет!!! 
Тока не понятно как из этой хреновины &H80000004& сделать приемлемое для RGB
Так не выходит
Me!Text8="&H80000004&"
ColorStr = Mid(Me!Text8, 5, 6)
Me!R = Val("&H" & Left$(ColorStr, 2))
Me!G = Val("&H" & Mid$(ColorStr, 3, 2))
Me!B = Val("&H" & Right$(ColorStr, 2))
|
Потому как получается RGB(0,0,4)
Но это совсем не тот цвет
или &H80000018& - получается RGB(0,0,18), опять не верно
И на экране(на форме) мы имеем совсем иной цвет