Hallo nochmal,

ich denke du kannst dir die Konvertierung nach DWORD auch sparen.

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/gdi/colors_9xiq.asp

"... The high-order byte must be zero ..."

das heisst mehr oder weniger das der maximale Rückgabewert 0x00FFFFFF ist, und dieser kann auch in einem signed integer Wert dargestellt werden.

declare integer GetThemeColor in uxtheme.dll ;
integer hTheme, integer iPartID, integer iStateID, integer iPropID, ;
integer @ COLORREF 

...
    lnColor = 0
    if GetThemeColor(lnHandle, 0, CBXS_NORMAL, TMT_BORDERCOLOR, @lnColor) = S_OK
        this.BorderColor = lnColor
    else
        *-- did not work out... ignore and leave it black
    endif

Gruß
Christian