Attribute VB_Name = "TTSAppMod" Option Explicit Declare Function GetSysColor Lib "user32" (ByVal index As Long) As Long Public Const COLOR_BTNFACE = 15 Public Const COLOR_3DFACE = COLOR_BTNFACE