Hej

Undrar om man kan hitta på och läsa de färger som man ställt in i windows för t.ex. titelraden för ett formulär? Kan man hitta på båda färgerna när man valt att ha en tonat namnlist?

Tack på förhand.
/peter

Du använder enklast API anrop för att ta reda på dessa.Klistra in följande kod i en modul:
<code>
Public Const COLOR_ACTIVECAPTION As Long = 2
Public Const COLOR_INACTIVECAPTION As Long = 3

Public Const COLOR_GRADIENTACTIVECAPTION As Long = 27
Public Const COLOR_GRADIENTINACTIVECAPTION As Long = 28

Private Const SPI_GETGRADIENTCAPTIONS As Long = &H1008

Public Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long

Public Property Get GradientCaptions() As Boolean
Dim vParam As Long
SystemParametersInfo SPI_GETGRADIENTCAPTIONS, 0&, vParam, 0&
GradientCaptions = vParam
End Property
</code>