2002-09-30 05:12

' Get Windows system color
' See http://vbapi.com for detail (http://216.26.168.92/vbapi/ref/g/getsyscolor.html)

     CONST COLOR_BTNFACE = 15
     CONST COLOR_3DFACE = COLOR_BTNFACE

     DECLARE FUNCTION GetSysColor LIB "user32" ALIAS "GetSysColor" (BYVAL nIndex AS LONG) AS LONG

     BackGrnd = GetSysColor(COLOR_3DFACE)

2002-09-30 05:12