System Colours

[scasystems]

I am using system colours for all forms.
What i need to do now is change the backdrop of a chart to the same colour as the backdrop to the form.
The chart can only be set using RGB colours, so how do i find the RGB colour of the form, when the colour returned (me.backcolor) is a system colour contant!!!!!!!

cheers

 

[strongm]

Option Explicit

Private Declare Function OleTranslateColor Lib "olepro32" (ByVal OLE_COLOR As Long, ByVal hPal As Long, COLORREF As Long) As Long

Private Function vbGetColorRef(OLE_COLOR As Long, Optional ByVal hPal As Long = 0) As Long
Dim result As Long
Dim COLORREF As Long
result = OleTranslateColor(OLE_COLOR, hPal, COLORREF)
' We should really check result for error conditions
vbGetColorRef = COLORREF
End Function

 

[scasystems]

Thanx for the speedy reply.Will check it out. Cheers

 

[scasystems]

That worked a treat!!!!!

Have a merry Xmas