How to get color-code Non-Working time

[hansfrap]

Problem


I want to use vba code to read the color-code of the non-working time from the graphic screen.
I found code to put it but don't know how to get the color code.

Question
What could be the vba-code?

Example code

Sub Timescale_NonWorking() 
    ' Sets nonworking time behind the task bars to red. 
    ' Activate Gantt Chart. 
    ViewApply Name:="&Gantt Chart", ApplyTo:=0
    TimescaleNonWorkingEx Draw:=pjBehind, Color:=&HAAAAFF 
End Sub