DO decl
 
    * defining a device context for the VFP Main window
    hWnd = GetActiveWindow () 
    hDc = GetDC (hWnd)
 
    crColor = RGB (16, 108, 231)
    matchColor = GetNearestColor (hDc, crColor)
    ? LTRIM(STR(crColor)) + " transformed to " + LTRIM(STR(matchColor))
 
    = ReleaseDC (hwnd, hdc)
 
PROCEDURE  decl
    DECLARE INTEGER GetDC IN user32 INTEGER hwnd 
    DECLARE INTEGER GetActiveWindow IN user32 
 
    DECLARE INTEGER ReleaseDC IN user32;
        INTEGER hwnd, INTEGER hdc 
 
    DECLARE INTEGER GetNearestColor IN gdi32;
        INTEGER hdc,;
        INTEGER crColor