程序代码：

*--------------------
* 顔色常量
*--------------------
#DEFINE WHITE        RGB(255,255,255)        && 白色
#DEFINE BLACK        RGB(0,0,0)                && 黑色
#DEFINE GRAY        RGB(192,192,192)        && 灰色
#DEFINE DARKGRAY    RGB(128,128,128)        && 深灰色
#DEFINE RED            RGB(255,0,0)            && 红色
#DEFINE DARKRED        RGB(128,0,0)            && 深红色
#DEFINE YELLOW        RGB(255,255,0)            && 黄色
#DEFINE DARKYELLOW    RGB(128,128,0)            && 深黄色
#DEFINE GREEN        RGB(0,255,0)            && 绿色
#DEFINE DARKGREEN    RGB(0,128,0)            && 深绿色
#DEFINE CYAN        RGB(0,255,255)            && 青绿色
#DEFINE    DARKCYAN    RGB(0,128,128)            && 深青绿色
#DEFINE BLUE        RGB(0,0,255)            && 蓝色
#DEFINE DARKBLUE    RGB(0,0,128)            && 深蓝色
#DEFINE MAGENTA        RGB(255,0,255)            && 洋红色
#DEFINE DARKMAGENTA    RGB(128,0,128)            && 深洋红色

*---------------------
* 回車換行符
*---------------------
#DEFINE CR_LF        CHR(13) + CHR(10)

*---------------------
* 按鍵常量
*---------------------
#DEFINE K_SPACE            32
#DEFINE K_ENTER            13
#DEFINE K_TAB            9
#DEFINE K_ESC            27
#DEFINE K_CTRL_ENTER    10
#DEFINE K_CTRL_C        3
#DEFINE K_CTRL_D        4
#DEFINE K_CTRL_U        21
#DEFINE K_CTRL_V        22
#DEFINE K_F1            28
#DEFINE K_F2            -1
#DEFINE K_F3            -2
#DEFINE K_F4            -3
#DEFINE K_F5            -4
#DEFINE K_F6            -5
#DEFINE K_F7            -6
#DEFINE K_F8            -7
#DEFINE K_F9            -8
#DEFINE K_F10            -9
#DEFINE K_F11            133
#DEFINE K_F12            134
#DEFINE K_UP            5
#DEFINE K_DOWN            24
#DEFINE K_RIGHT            4
#DEFINE K_LEFT            19
#DEFINE K_PAGEUP        18
#DEFINE K_PAGEDOWN        3

*---------------------
* 鼠標形狀常量
*---------------------
#DEFINE MOUSE_DEFAULT            0
#DEFINE MOUSE_ARROW                1
#DEFINE MOUSE_CROSS                2
#DEFINE MOUSE_BEAN                3
#DEFINE MOUSE_WHITE_SQUARE        4
#DEFINE MOUSE_FOUR_ARROW        5
#DEFINE MOUSE_NE                6
#DEFINE MOUSE_NS                7
#DEFINE MOUSE_NW                8
#DEFINE MOUSE_WE                9
#DEFINE MOUSE_UP                10
#DEFINE MOUSE_WAIT                11
#DEFINE MOUSE_NO_DROP            12
#DEFINE MOUSE_HIDE                13
#DEFINE MOUSE_ARROW1            14
#DEFINE MOUSE_HAND                15
#DEFINE MOUSE_DOWN                16
#DEFINE MOUSE_CUSTOM            99

*---------------------
* 印刷常量
*---------------------
#DEFINE POINT_CM        0.035                && 磅到厘米的转换，1磅=0.035厘米=1/72英寸
   
*----------------------
* Excel 常量
*----------------------
#DEFINE xlCenter            3
#DEFINE xlRight                2
#DEFINE xlLeft                1
#DEFINE xlDiagonalDown        5
#DEFINE xlDiagonalUp        6
#DEFINE xlEdgeLeft            7
#DEFINE xlEdgeTop            8
#DEFINE xlEdgeBottom        9
#DEFINE xlEdgeRight            10
#DEFINE xlInsideVertical    11
#DEFINE xlInsideHorizontal    12
#DEFINE xlContinuous        1
#DEFINE xlThin                2
#DEFINE xlAutomatic            -4105
#DEFINE xlMedium            -4138
#DEFINE xlNone                -4142
#DEFINE xlSolid                1
#DEFINE xlPaperLetter        1
#DEFINE xlPaperA4            9
#DEFINE xlPortrait            1
#DEFINE xlLandscape            2
#DEFINE xlMaximized            -4137
#DEFINE xlNormal            -4143
#DEFINE xlMinimized            -4140
#DEFINE xlExcel8            56

*----------------------
* 文件屬性常量
*----------------------
#DEFINE FILE_ATTRIBUTE_READONLY                1
#DEFINE FILE_ATTRIBUTE_HIDDEN                2
#DEFINE FILE_ATTRIBUTE_SYSTEM                4
#DEFINE FILE_ATTRIBUTE_DIRECTORY            16
#DEFINE FILE_ATTRIBUTE_ARCHIVE                32
#DEFINE FILE_ATTRIBUTE_ENCRYPTED            64
#DEFINE FILE_ATTRIBUTE_NORMAL                128
#DEFINE FILE_ATTRIBUTE_TEMPORARY            256
#DEFINE FILE_ATTRIBUTE_SPARSE_FILE            1024
#DEFINE FILE_ATTRIBUTE_COMPRESSED            2048