VC书籍

开发平台：
C/C++

StdConst.bas：源码内容
							' StdConst.bas
' This file contains declarations for core Visual Basic language constants
'
' Adding this file to a Source Insight project will enable auto-completion and other
' symbolic features for these constant symbols from within Source Insight.
'1 Alignment Constants
Global Const vbAlignNone =  0  'Size and location set at design time or in code 
Global Const vbAlignTop =  1  'Align control to top of form 
Global Const vbAlignBottom =  2  'Align control to bottom of form 
Global Const vbAlignLeft =  3  'Align control to left of form 
Global Const vbAlignRight =  4  'Align control to right of form 
Global Const vbLeftJustify =  0  'Left align 
Global Const vbRightJustify =  1  'Right align 
Global Const vbCenter =  2  'Center 
' AsyncType Constant 
Global Const vbAsyncTypePicture =  0  'The data is provided in a Picture object. 
Global Const vbAsyncTypeFile =  1  'The data is provided in a file that is created by Visual Basic. 
Global Const vbAsyncTypeByteArray =  2  'The data is provided as a byte array that contains the retrieved data.  It is assumed that the control author will know how to handle the data. 
' AsyncStatusCode 
Global Const vbAsyncStatusCodeError =  0  'An error occurred during the asynchronous download. 
Global Const vbAsyncStatusCodeFindingResource =  1  'AsyncRead is finding the resource specified in AsyncProperty.Status that holds the storage being downloaded. 
Global Const vbAsyncStatusCodeConnecting =  2  'AsyncRead is connecting to the resource specified in AsyncProperty.Status that holds the storage being downloaded. 
Global Const vbAsyncStatusCodeRedirecting =  3  'AsyncRead has been redirected to a different location specified in AsyncRead.Property.Status. 
Global Const vbAsyncStatusCodeBeginDownloadData =  4  'AsyncRead has begun receiving data for the storage specified in AsyncProperty.Status. 
Global Const vbAsyncStatusCodeDownloadingData =  5  'AsyncRead has received more data for the storage specified in AsyncProperty.Status. 
Global Const vbAsyncStatusCodeEndDownloadData =  6  'AsyncRead has finished receiving data for the storage specified in AsyncProperty.Status. 
Global Const vbAsyncStatusCodeUsingCashedCopy =  10  'AsyncRead is retrieving the requested storage from a cached copy. AsyncProperty.Status is empty. 
Global Const vbAsyncStatusCodeSendingRequest =  11  'AsyncRead is requesting the storage specified in AsyncProperty.Status. 
Global Const vbAsybcStatusCodeMIMETypeAvailable =  13  'The MIME type of the requested storage is specified in AsyncProperty.Status. 
Global Const vbAsyncStatusCodeCacheFileNameAvailable =  14  'The filename of the local file cache for requested storage is specified in AsyncProperty.Status. 
Global Const vbAsyncStatusCodeBeginSyncOperation =  15  'The AsyncRead will operate synchronously. 
Global Const vbAsyncstatusCodeEndSyncOperation =  16  'The AsyncRead has completed synchronous operation. 
Global Const vbScrollBars = &H80000000  'Scroll bar color 
Global Const vbDesktop = &H80000001  'Desktop color 
Global Const vbActiveTitleBar = &H80000002  'Color of the title bar for the active window 
Global Const vbInactiveTitleBar = &H80000003  'Color of the title bar for the inactive window 
Global Const vbMenuBar = &H80000004  'Menu background color 
Global Const vbWindowBackground = &H80000005  'Window background color 
Global Const vbWindowFrame = &H80000006  'Window frame color 
Global Const vbMenuText = &H80000007  'Color of text on menus 
Global Const vbWindowText = &H80000008  'Color of text in windows 
Global Const vbTitleBarText = &H80000009  'Color of text in caption, size box, and scroll arrow 
Global Const vbActiveBorder = &H8000000A  'Border color of active window 
Global Const vbInactiveBorder = &H8000000B  'Border color of inactive window 
Global Const vbApplicationWorkspace = &H8000000C  'Background color of multiple-document interface (MDI) applications 
Global Const vbHighlight = &H8000000D  'Background color of items selected in a control 
Global Const vbHighlightText = &H8000000E  'Text color of items selected in a control 
Global Const vbButtonFace = &H8000000F  'Color of shading on the face of command buttons 
Global Const vbButtonShadow = &H80000010  'Color of shading on the edge of command buttons 
Global Const vbGrayText = &H80000011  'Grayed (disabled) text 
Global Const vbButtonText = &H80000012  'Text color on push buttons 
Global Const vbInactiveCaptionText = &H80000013  'Color of text in an inactive caption 
Global Const vb3DHighlight = &H80000014  'Highlight color for 3D display elements 
Global Const vb3DDKShadow = &H80000015  'Darkest shadow color for 3D display elements 
Global Const vb3DLight = &H80000016  'Second lightest of the 3D colors after vb3Dhighlight 
Global Const vb3DFace = &H8000000F  'Color of text face 
Global Const vb3Dshadow = &H80000010  'Color of text shadow 
Global Const vbInfoText = &H80000017  'Color of text in ToolTips 
Global Const vbInfoBackground = &H80000018  'Background color of ToolTips 
' Border Style (Form)
Global Const vbBSNone = 0 ' No border 
Global Const vbFixedSingle = 1 ' Fixed single 
Global Const vbSizable = 2 ' Sizable (forms only) 
Global Const vbFixedDialog = 3 ' Fixed dialog (forms only) 
Global Const vbFixedToolWindow = 4 ' Fixed tool window 
Global Const vbSizableToolWindow = 5 ' Sizable tool window 
' BorderStyle Property (Shape and Line)
Global Const vbTransparent = 0 ' Transparent 
Global Const vbBSSolid = 1 ' Solid 
Global Const vbBSDash = 2 ' Dash 
Global Const vbBSDot = 3 ' Dot 
Global Const vbBSDashDot = 4 ' Dash-dot 
Global Const vbBSDashDotDot = 5 ' Dash-dot-dot 
Global Const vbBSInsideSolid = 6 ' Inside solid 
' Color Constants
Global Const vbBlack = &H0 ' Black 
Global Const vbRed = &HFF ' Red 
Global Const vbGreen = &HFF00 ' Green 
Global Const vbYellow = &HFFFF ' Yellow 
Global Const vbBlue = &HFF0000 ' Blue 
Global Const vbMagenta = &HFF00FF ' Magenta 
Global Const vbCyan = &HFFFF00 ' Cyan 
Global Const vbWhite = &HFFFFFF ' White 
' Date Format Constants
Global Const vbGeneralDate = 0 ' Display a date and/or time. For real numbers, display a data and time. If there is no fractional part, display only a date. If there is no integer part, display time only. Date and time display is determined by your system settings. 
Global Const vbLongDate = 1 ' Display a date using the long date format specified in your computer's regional settings. 
Global Const vbShortDate = 2 ' Display a date using the short date format specified in your computer's regional settings. 
Global Const vbLongTime = 3 ' Display a time using the long time format specified in your computer's regional settings. 
Global Const vbShortTime = 4 ' Display a time using the short time format specified in your computer's regional settings. 
'1 Data Report Designer Constants
' Alignment Constants
Global Const rptJustifyLeft = 0 ' The text is aligned left. 
Global Const rptJustifyRight = 1 ' The text is aligned right. 
Global Const rptJustifyCenter = 2 ' The text is centered. 
' AsyncType Constants
Global Const rptAsyncPreview = 0 ' Preview mode. Occurs after invoking the Show method. 
Global Const rptAsyncPrint = 1 ' Indicates a job has been sent to the printer. 
Global Const rptAsyncExport = 2 ' Indicates a file is being exported. 
' BackStyle Constants
Global Const rptBkTransparent = 0 ' The control is transparent. 
Global Const rptBkOpaque = 1 ' The control is opaque. 
' BorderStyle Constants
Global Const rptBSTransparent = 0 ' The border is transparent. 
Global Const rptBSSolid = 1 ' The border is solid. 
Global Const rptBSDashes = 2 ' The border consists of dashes. 
Global Const rptBSDots = 3 ' The border consists of dots. 
Global Const rptBSDashDot = 4 ' The border consists of dashes and dots. 
Global Const rptBSDashDotDot = 5 ' The border consists of a dash followed by two dots. 
' Error Constants
Global Const rptErrAccessDenied = 8513 ' (&H2141) Access denied. 
Global Const rptErrBoundCtlNotAllowed = 8551 ' (&H2167) The control can't be placed in this section. 
Global Const rptErrChapterInit = 8521 ' (&H2149) Unable to initialize the chapter. 
Global Const rptErrCollectionIsEmpty = 8573 ' (&H217D) The collection is empty. 
Global Const rptErrCreatingFont = 8556 ' (&H216C) An error occurred creating the font. 
Global Const rptErrCreatingWindow = 8572 ' (&H217C) An error occurred creating the window. 
Global Const rptErrDuplicateKey = 8500 ' (&H2134) There is a duplicate key value in the collection. 
Global Const rptErrExportFormatsEmpty = 8506 ' (&H213A) The ExportFormats collection is empty. 
Global Const rptErrFileAlreadyExists = 8512 ' (&H2140) The file already exists. 
Global Const rptErrGeneralFileIO = 8510 ' (&H213E) File I/O error. 
Global Const rptErrInvalidArg = 8507 ' (&H213B) An argument is invalid. 
Global Const rptErrInvalidColIndex = 8523 ' (&H214B) The column index is invalid. 
Global Const rptErrInvalidDataField = 8526 ' (&H214E) The data field can't be found. 
Global Const rptErrInvalidDateSource = 8520 ' (&H2148) The data source is invalid. 
Global Const rptErrInvalidFileFilter = 8517 ' (&H2145) The file filter is invalid, or in an invalid format. 
Global Const rptErrInvalidFileVersion = 8511 ' (&H213F) The file version is invalid. 
Global Const rptErrInvalidKey = 8504 ' (&H2138) The key is invalid. 
Global Const rptErrInvalidName = 8503 ' (&H2137) The name is invalid. 
Global Const rptErrInvalidPropertyValue = 380 ' (&H17C) A property value is invalid. 
Global Const rptErrInvalidRowIndex = 8524 ' (&H214C) The row index is invalid. 
Global Const rptErrInvalidRowset = 8522 ' (&H214A) The rowset is invalid. 
Global Const rptErrInvalidTemplate = 8516 ' (&H2144) The ExportFormat template is invalid. 
Global Const rptErrKeyNotFound = 8501 ' (&H2135) The key can't be found. 
Global Const rptErrLineBreak = 8553 ' (&H2169) An error occurred wrapping lines of text in the control. 
Global Const rptErrMarginsTooTall = 8541 ' (&H215D) Top and bottom margins are higher than the paper height. 
Global Const rptErrMarginsTooWide = 8540 ' (&H215C) Left and right margins are wider than the paper width. 
Global Const rptErrNotAllowedInReportGenerating = 8576 ' (&H2180) This property or method cannot be accessed during the generation of the report. 
Global Const rptErrObjectNotFoundInCollection = 8574 ' (&H217E) The object can't be found in the collection. 
Global Const rptErrOutOfMemory = 7 ' Out of memory. 
Global Const rptErrPathNotFound = 8514 ' (&H2142) The path can't be found. 
Global Const rptErrPrint = 8558 ' (&H216E) An error occurred during printing. 
Global Const rptErrPrinterInfo = 8555 ' (&H216B) Error obtaining printer information. 
Global Const rptErrPrintInit = 8557 ' (&H216D) An error occurred initializing the printer. 
Global Const rptErrReportTooTall = 8571 ' (&H217B) Sections do not fit vertically on the page. 
Global Const rptErrReportTooWide = 8542 ' (&H215E) Report width is larger than the paper width. 
Global Const rptErrSectDontMatchData = 8570 ' (&H217A) Report sections do not match data source. 
Global Const rptErrSharingViolation = 8515 ' (&H2143) Cannot access the file because it is being used by another process. 
Global Const rptErrSubscriptRange = 9 ' The subscript is out of range. 
Global Const rptErrTempFileName = 8550 ' (&H2166) Error generating temporary filename. 
Global Const rptErrTempFileRead = 8554 ' (&H216A) Error opening or reading from temporary file. 
Global Const rptErrTempFileWrite = 8552 ' (&H2168) Error creating or writing to temporary file. 
Global Const rptErrTypeMismatch = 13 ' Type mismatch. 
Global Const rptErrUnexpected = 8505 ' (&H2139) Unexpected error. 
Global Const rptErrUnknown = 8502 ' (&H2136) General error. 
' ExportFormat Constants
Global Const rptFmtHTML = 0 ' HTML format. 
Global Const rptFmtText = 1 ' Text format. 
Global Const rptFmtUnicodeText = 2 ' Unicode. 
Global Const rptFmtUnicodeHTML_UTF8 = 3 ' HTML encoded in Universal Character Set (UTF - 8) 
' FunctionType Constants
Global Const rptFuncSum = 0 ' Sum function. 
Global Const rptFuncAve = 1 ' Average. 
Global Const rptFuncMin = 2 ' Minimum 
Global Const rptFuncMax = 3 ' Maximum. 
Global Const rptFuncRCnt = 4 ' Counts the rows in the section. 
Global Const rptFuncVCnt = 5 ' Counts the fields with non-null values. 
Global Const rptFuncSDEV = 6 ' Calculates the standard deviation. 
Global Const rptFuncSERR = 7 ' Calculates the standard error. 
' LineSlant Constants
Global Const rptSlantNWSE = 0 ' Line slants from northwest to southeast. 
Global Const rptSlantNESW = 1 ' Line slants from northeast to southwest. 
' PageBreak Constants
Global Const rptPageBreakNone = 0 ' No page breaks on the section. 
Global Const rptPageBreakBefore = 1 ' Page break occurs before the section. 
Global Const rptPageBreakAfter = 2 ' Page break occurs after the section. 
Global Const rptPageBreakBeforeAndAfter = 3 ' Page break occurs before and after the section. 
' PageRange Constants
Global Const rptRangeAllPages = 0 ' Print or export all pages. 
Global Const rptRangeFromTo = 1 ' Print or export only the named range of pages. 
' PictureAlignment Constants
Global Const rptPATopLeft = 0 ' The picture appears at the top left. 
Global Const rptPATop = 1 ' The picture appears at the top. 
Global Const rptPATopRight = 2 ' The picture appears at the top right. 
Global Const rptPARight = 3 ' The picture appears at the right. 
Global Const rptPABottomRight = 4 ' The picture appears at the bottom right. 
Global Const rptPABottom = 5 ' The picture appears at the bottom. 
Global Const rptPABottomLeft = 6 ' The picture appears at the bottom left. 
Global Const rptPALeft = 7 ' The picture appears at the left. 
Global Const rptPACenter = 8 ' The picture appears centered. 
' Shape Constants
Global Const rptShpRectangle = 0 ' Rectangle shape. 
Global Const rptShpSquare = 1 ' Square shape. 
Global Const rptShpOval = 2 ' Oval shape. 
Global Const rptShpCircle = 3 ' Circle shape. 
Global Const rptShpRoundedRectangle = 4 ' Rounded rectangle shape. 
Global Const rptShpRoundedSquare = 5 ' Rounded square shape. 
'1 DDE Constants
'linkerr (LinkError Event)
Global Const vbWrongFormat = 1 ' Another application requested data in wrong format 
Global Const vbDDESourceClosed = 6 ' Destination application attempted to continue after source closed 
Global Const vbTooManyLinks = 7 ' All source links are in use 
Global Const vbDataTransferFailed = 8 ' Failure to update data in destination 
' LinkMode Property (Forms and Controls)
Global Const vbLinkNone = 0 ' None 
Global Const vbLinkSource = 1 ' Source (forms only) 
Global Const vbLinkAutomatic = 1 ' Automatic (controls only) 
Global Const vbLinkManual = 2 ' Manual (controls only) 
Global Const vbLinkNotify = 3 ' Notify (controls only) 
' LinkMode Property 
' (Only for backward compatibility with Visual Basic version 1.0; use new constants instead)
Global Const vbHot = 1 ' Hot (controls only) 
Global Const vbServer = 1 ' Server (forms only) 
Global Const vbCold = 2 ' Cold (controls only) 
'1 Drag-and-Drop Constants
' DragOver and OLEDragOver Event
Global Const vbEnter = 0 ' Source control dragged into target 
Global Const vbLeave = 1 ' Source control dragged out of target 
Global Const vbOver = 2 ' Source control dragged from one position in target to another 
' Drag Method (Controls)
Global Const vbCancel = 0 ' Cancel drag operation 
Global Const vbBeginDrag = 1 ' Begin dragging control 
Global Const vbEndDrag = 2 ' Drop control 
' DragMode Property
Global Const vbManual = 0 ' Manual 
Global Const vbAutomatic = 1 ' Automatic 
' OLEDragMode Property
Global Const vbOLEDragManual = 0 ' Manual 
Global Const vbOLEDragAutomatic = 1 ' Automatic 
' OLEDropMode Property
Global Const vbOLEDropNone = 0 ' None 
Global Const vbOLEDropManual = 1 ' Manual 
Global Const vbOLEDropAutomatic = 2 ' Automatic 
' OLE Drop Effect
Global Const vbOLEDropEffectNone = 0 ' No OLE drag/drop operation has taken place 
Global Const vbOLEDropEffectCopy = 1 ' A mask indicating that a copy operation has taken, or would take, place 
Global Const vbOLEDropEffectMove = 2 ' A mask indicating that a move operation has taken, or would take, place 
Global Const vbOLEDropEffectScroll = &H80000000 ' A mask indicating that the drop target window has scrolled, or will scroll 
'1 Drawing Constants
' DrawMode Property
Global Const vbBlackness = 1 ' Black 
Global Const vbNotMergePen = 2 ' Not Merge pen 
Global Const vbMaskNotPen = 3 ' Mask Not pen 
Global Const vbNotCopyPen = 4 ' Not Copy pen 
Global Const vbMaskPenNot = 5 ' Mask pen Not 
Global Const vbInvert = 6 ' Invert 
Global Const vbXorPen = 7 ' Xor pen 
Global Const vbNotMaskPen = 8 ' Not Mask pen 
Global Const vbMaskPen = 9 ' Mask pen 
Global Const vbNotXorPen = 10 ' Not Xor pen 
Global Const vbNop = 11 ' No operation; output remains unchanged 
Global Const vbMergeNotPen = 12 ' Merge Not pen 
Global Const vbCopyPen = 13 ' Copy pen 
Global Const vbMergePenNot = 14 ' Merge pen Not 
Global Const vbMergePen = 15 ' Merge pen 
Global Const vbWhiteness = 16 ' White 
' DrawStyle Property
Global Const vbSolid = 0 ' Solid 
Global Const vbDash = 1 ' Dash 
Global Const vbDot = 2 ' Dot 
Global Const vbDashDot = 3 ' Dash-dot 
Global Const vbDashDotDot = 4 ' Dash-dot-dot 
Global Const vbInvisible = 5 ' Invisible 
Global Const vbInsideSolid = 6 ' Inside solid 
' DriveType Constants
Global Const Unknown = 0 ' Drive type can't be determined. 
Global Const Removable = 1 ' Drive has removable media. This includes all floppy drives and many other varieties of storage devices. 
Global Const Fixed = 2 ' Drive has fixed (nonremovable) media. This includes all hard drives, including hard drives that are removable. 
Global Const Remote = 3 ' Network drives. This includes drives shared anywhere on a network. 
Global Const CDROM = 4 ' Drive is a CD-ROM. No distinction is made between read-only and read/write CD-ROM drives. 
Global Const RAMDisk = 5 ' Drive is a block of Random Access Memory (RAM) on the local computer that behaves like a disk drive. 
' File Attribute Constants
Global Const Normal = 0 ' Normal file. No attributes are set. 
Global Const ReadOnly = 1 ' Read-only file. Attribute is read/write. 
Global Const Hidden = 2 ' Hidden file. Attribute is read/write. 
Global Const System = 4 ' System file. Attribute is read/write. 
Global Const Volume = 8 ' Disk drive volume label. Attribute is read-only. 
Global Const Directory = 16 ' Folder or directory. Attribute is read-only. 
Global Const Archive = 32 ' File has changed since last backup. Attribute is read/write. 
Global Const Alias = 64 ' Link or shortcut. Attribute is read-only. 
Global Const Compressed = 128 ' Compressed file. Attribute is read-only. 
' File Input/Output Constants
Global Const ForReading = 1 ' Open a file for reading only. You can't write to this file. 
Global Const ForWriting = 2 ' Open a file for writing. If a file with the same name exists, its previous contents are overwritten. 
Global Const ForAppending = 8 ' Open a file and write to the end of the file. 
'1 Graphics Constants
' FillStyle Property
Global Const vbFSSolid = 0 ' Solid 
Global Const vbFSTransparent = 1 ' Transparent 
Global Const vbHorizontalLine = 2 ' Horizontal line 
Global Const vbVerticalLine = 3 ' Vertical line 
Global Const vbUpwardDiagonal = 4 ' Upward diagonal 
Global Const vbDownwardDiagonal = 5 ' Downward diagonal 
Global Const vbCross = 6 ' Cross 
Global Const vbDiagonalCross = 7 ' Diagonal cross 
' ScaleMode Property
Global Const vbUser = 0 ' User 
Global Const vbTwips = 1 ' Twips 
Global Const vbPoints = 2 ' Points 
Global Const vbPixels = 3 ' Pixels 
Global Const vbCharacters = 4 ' Characters 
Global Const vbInches = 5 ' Inches 
Global Const vbMillimeters = 6 ' Millimeters 
Global Const vbCentimeters = 7 ' Centimeters 
Global Const vbHiMetric = 8 ' HiMetric 
Global Const vbContainerPosition = 9 ' Units used by the control's container to determine the control's position 
Global Const vbContainerSize = 10 ' Units used by the control's container to determine the control's size 
' PaletteMode Property
Global Const vbPaletteModeHalfTone = 0 ' Use system halftone palette 
Global Const vbPaletteModeUseZOrder = 1 ' Use palette from topmost control that has a palette 
Global Const vbPaletteModeCustom = 2 ' Use palette specified in Palette property 
Global Const vbPaletteModeContainer = 3 ' Use the container's palette for containers that support ambient Palette property 
Global Const vbPaletteModeNone = 4 ' Do not use any palette 
Global Const vbPaletteModeObject = 5 ' Use the ActiveX designer's palette 
' Help Constants
Global Const cdlHelpContext = &H1 ' Displays Help for a particular topic 
Global Const cdlHelpQuit = &H2 ' Notifies the Help application that the specified Help file is no longer in use 
Global Const cdlHelpIndex = &H3 ' Displays the index of the specified Help file 
Global Const cdlHelpContents = &H3 ' Displays the contents topic in the current Help file 
Global Const cdlHelpHelpOnHelp = &H4 ' Displays Help for using the Help application itself 
Global Const cdlHelpSetIndex = &H5 ' Sets the current index for multi-index Help 
Global Const cdlHelpSetContents = &H5 ' Designates a specific topic as the contents topic 
Global Const cdlHelpContextPopup = &H8 ' Displays a topic identified by a context number 
Global Const cdlHelpForceFile = &H9 ' Creates a Help file that displays text in only one font 
Global Const cdlHelpKey = &H101 ' Displays Help for a particular keyword 
Global Const cdlHelpCommandHelp = &H102 ' Displays Help for a particular command 
Global Const cdlHelpPartialKey = &H105 ' Calls the search engine in Windows Help 
'1 Key Code Constants
Global Const vbKeyLButton = 1 ' Left mouse button 
Global Const vbKeyRButton = 2 ' Right mouse button 
Global Const vbKeyCancel = 3 ' CANCEL key 
Global Const vbKeyMButton = 4 ' Middle mouse button 
Global Const vbKeyBack = 8 ' BACKSPACE key 
Global Const vbKeyTab = 9 ' TAB key 
Global Const vbKeyClear = 12 ' CLEAR key 
Global Const vbKeyReturn = 13 ' ENTER key 
Global Const vbKeyShift = 16 ' SHIFT key 
Global Const vbKeyControl = 17 ' CTRL key 
Global Const vbKeyMenu = 18 ' MENU key 
Global Const vbKeyPause = 19 ' PAUSE key 
Global Const vbKeyCapital = 20 ' CAPS LOCK key 
Global Const vbKeyEscape = 27 ' ESC key 
Global Const vbKeySpace = 32 ' SPACEBAR key 
Global Const vbKeyPageUp = 33 ' PAGE UP key 
Global Const vbKeyPageDown = 34 ' PAGE DOWN key 
Global Const vbKeyEnd = 35 ' END key 
Global Const vbKeyHome = 36 ' HOME key 
Global Const vbKeyLeft = 37 ' LEFT ARROW key 
Global Const vbKeyUp = 38 ' UP ARROW key 
Global Const vbKeyRight = 39 ' RIGHT ARROW key 
Global Const vbKeyDown = 40 ' DOWN ARROW key 
Global Const vbKeySelect = 41 ' SELECT key 
Global Const vbKeyPrint = 42 ' PRINT SCREEN key 
Global Const vbKeyExecute = 43 ' EXECUTE key 
Global Const vbKeySnapshot = 44 ' SNAPSHOT key 
Global Const vbKeyInsert = 45 ' INS key 
Global Const vbKeyDelete = 46 ' DEL key 
Global Const vbKeyHelp = 47 ' HELP key 
Global Const vbKeyNumlock = 144 ' NUM LOCK key 
' KeyA Through KeyZ Are the Same as Their ASCII Equivalents: 'A' Through 'Z'
Global Const vbKeyA = 65 ' A key 
Global Const vbKeyB = 66 ' B key 
Global Const vbKeyC = 67 ' C key 
Global Const vbKeyD = 68 ' D key 
Global Const vbKeyE = 69 ' E key 
Global Const vbKeyF = 70 ' F key 
Global Const vbKeyG = 71 ' G key 
Global Const vbKeyH = 72 ' H key 
Global Const vbKeyI = 73 ' I key 
Global Const vbKeyJ = 74 ' J key 
Global Const vbKeyK = 75 ' K key 
Global Const vbKeyL = 76 ' L key 
Global Const vbKeyM = 77 ' M key 
Global Const vbKeyN = 78 ' N key 
Global Const vbKeyO = 79 ' O key 
Global Const vbKeyP = 80 ' P key 
Global Const vbKeyQ = 81 ' Q key 
Global Const vbKeyR = 82 ' R key 
Global Const vbKeyS = 83 ' S key 
Global Const vbKeyT = 84 ' T key 
Global Const vbKeyU = 85 ' U key 
Global Const vbKeyV = 86 ' V key 
Global Const vbKeyW = 87 ' W key 
Global Const vbKeyX = 88 ' X key 
Global Const vbKeyY = 89 ' Y key 
Global Const vbKeyZ = 90 ' Z key 
' Key0 Through Key9 Are the Same as Their ASCII Equivalents: '0' Through '9
Global Const vbKey0 = 48 ' 0 key 
Global Const vbKey1 = 49 ' 1 key 
Global Const vbKey2 = 50 ' 2 key 
Global Const vbKey3 = 51 ' 3 key 
Global Const vbKey4 = 52 ' 4 key 
Global Const vbKey5 = 53 ' 5 key 
Global Const vbKey6 = 54 ' 6 key 
Global Const vbKey7 = 55 ' 7 key 
Global Const vbKey8 = 56 ' 8 key 
Global Const vbKey9 = 57 ' 9 key 
' Keys on the Numeric Keypad
Global Const vbKeyNumpad0 = 96 ' 0 key 
Global Const vbKeyNumpad1 = 97 ' 1 key 
Global Const vbKeyNumpad2 = 98 ' 2 key 
Global Const vbKeyNumpad3 = 99 ' 3 key 
Global Const vbKeyNumpad4 = 100 ' 4 key 
Global Const vbKeyNumpad5 = 101 ' 5 key 
Global Const vbKeyNumpad6 = 102 ' 6 key 
Global Const vbKeyNumpad7 = 103 ' 7 key 
Global Const vbKeyNumpad8 = 104 ' 8 key 
Global Const vbKeyNumpad9 = 105 ' 9 key 
Global Const vbKeyMultiply = 106 ' MULTIPLICATION SIGN (*) key 
Global Const vbKeyAdd = 107 ' PLUS SIGN (+) key 
Global Const vbKeySeparator = 108 ' ENTER (keypad) key 
Global Const vbKeySubtract = 109 ' MINUS SIGN (-) key 
Global Const vbKeyDecimal = 110 ' DECIMAL POINT(.) key 
Global Const vbKeyDivide = 111 ' DIVISION SIGN (/) key 
' Function Keys
Global Const vbKeyF1 = 112 ' F1 key 
Global Const vbKeyF2 = 113 ' F2 key 
Global Const vbKeyF3 = 114 ' F3 key 
Global Const vbKeyF4 = 115 ' F4 key 
Global Const vbKeyF5 = 116 ' F5 key 
Global Const vbKeyF6 = 117 ' F6 key 
Global Const vbKeyF7 = 118 ' F7 key 
Global Const vbKeyF8 = 119 ' F8 key 
Global Const vbKeyF9 = 120 ' F9 key 
Global Const vbKeyF10 = 121 ' F10 key 
Global Const vbKeyF11 = 122 ' F11 key 
Global Const vbKeyF12 = 123 ' F12 key 
Global Const vbKeyF13 = 124 ' F13 key 
Global Const vbKeyF14 = 125 ' F14 key 
Global Const vbKeyF15 = 126 ' F15 key 
Global Const vbKeyF16 = 127 ' F16 key 
'1 Miscellaneous Constants
' AsyncRead Method
Global Const vbAsyncTypePicture = 0 ' Data is provided in a Picture object 
Global Const vbAsyncTypeFile = 1 ' Data is provided in a file provide by Visual Basic 
Global Const vbAsyncTypeByteArray = 2 ' Data is provided in a byte array that contains the retrieved data 
' Application Start Mode
Global Const vbSModeStandalone = 0 ' Stand-alone application 
Global Const vbSModeAutomation = 1 ' Automated ActiveX component 
' Buttons (Applies to CommandButton, CheckBox, and OptionButton controls)
Global Const vbButtonStandard = 0 ' Buttons have standard Windows appearance 
Global Const vbButtonGraphical = 1 ' Buttons have graphical appearance (that is, they contain pictures, text, and/or a non-standard BackColor) 
' LoadResPicture Method
Global Const vbResBitmap = 0 ' Bitmap resource 
Global Const vbResIcon = 1 ' Icon resource 
Global Const vbResCursor = 2 ' Cursor resource 
' LogEvent Method
Global Const vbLogEventTypeError = 1 ' Log an Error event 
Global Const vbLogEventTypeWarning = 2 ' Log a Warning event 
Global Const vbLogEventTypeInformation = 4 ' Log an Information event 
' Mouse Button Parameter Masks
Global Const vbLeftButton = 1 ' Left mouse button 
Global Const vbRightButton = 2 ' Right mouse button 
Global Const vbMiddleButton = 4 ' Middle mouse button 
' QueryUnload Method
Global Const vbAppWindows = 2 ' Current Windows session ending 
Global Const vbFormMDIForm = 4 ' MDI child form is closing because the MDI form is closing 
Global Const vbFormCode = 1 ' Unload method invoked from code 
Global Const vbFormControlMenu = 0 ' User has chosen Close command from the Control-menu box on a form 
Global Const vbAppTaskManager = 3 ' Windows Task Manager is closing the application 
' Shift Parameter Masks
Global Const vbShiftMask = 1 ' SHIFT key bit mask 
Global Const vbCtrlMask = 2 ' CTRL key bit mask 
Global Const vbAltMask = 4 ' ALT key bit mask 
' ZOrder Method
Global Const vbBringToFront = 0 ' Bring to front 
Global Const vbSendToBack = 1 ' Send to back 
' Mouse Pointer Constants
Global Const vbDefault = 0 ' Default 
Global Const vbArrow = 1 ' Arrow 
Global Const vbCrosshair = 2 ' Cross 
Global Const vbIbeam = 3 ' I beam 
Global Const vbIconPointer = 4 ' Icon 
Global Const vbSizePointer = 5 ' Size 
Global Const vbSizeNESW = 6 ' Size NE, SW 
Global Const vbSizeNS = 7 ' Size N, S 
Global Const vbSizeNWSE = 8 ' Size NW, SE 
Global Const vbSizeWE = 9 ' Size W, E 
Global Const vbUpArrow = 10 ' Up arrow 
Global Const vbHourglass = 11 ' Hourglass 
Global Const vbNoDrop = 12 ' No drop 
Global Const vbArrowHourglass = 13 ' Arrow and hourglass 
Global Const vbArrowQuestion = 14 ' Arrow and question mark 
Global Const vbSizeAll = 15 ' Size all 
Global Const vbCustom = 99 ' Custom icon specified by the MouseIcon property 
' RasterOp Constants
Global Const vbDstInvert = &H00550009 ' Inverts the destination bitmap 
Global Const vbMergeCopy = &H00C000CA ' Combines the pattern and the source bitmap 
Global Const vbMergePaint = &H00BB0226 ' Combines the inverted source bitmap with the destination bitmap by using Or 
Global Const vbNotSrcCopy = &H00330008 ' Copies the inverted source bitmap to the destination 
Global Const vbNotSrcErase = &H001100A6 ' Inverts the result of combining the destination and source bitmaps by using Or 
Global Const vbPatCopy = &H00F00021L ' Copies the pattern to the destination bitmap 
Global Const vbPatInvert = &H005A0049L ' Combines the destination bitmap with the pattern by using Xor 
Global Const vbPatPaint = &H00FB0A09L ' Combines the inverted source bitmap with the pattern by using Or. Combines the result of this operation with the destination bitmap by using Or 
Global Const vbSrcAnd = &H008800C6 ' Combines pixels of the destination and source bitmaps by using And 
Global Const vbSrcCopy = &H00CC0020 ' Copies the source bitmap to the destination bitmap 
Global Const vbSrcErase = &H00440328 ' Inverts the destination bitmap and combines the result with the source bitmap by using And 
Global Const vbSrcInvert = &H00660046 ' Combines pixels of the destination and source bitmaps by using Xor 
Global Const vbSrcPaint = &H00EE0086 ' Combines pixels of the destination and source bitmaps by using Or 
' SpecialFolder Constants
Global Const WindowsFolder = 0 ' The Windows folder contains files installed by the Windows operating system. 
Global Const SystemFolder = 1 ' The System folder contains libraries, fonts, and device drivers. 
Global Const TemporaryFolder = 2 ' The Temp folder is used to store temporary files. Its path is found in the TMP environment variable. 
' StateManagement Property Constants
Global Const WcNoState = 1 ' The WebClass object will be instantiated and destroyed for every HTTP request that is processed. Any required state information must be stored externally, such as in a database, within the Session object, within the URL itself using the URLData property, or in cookies using the Response.Cookies collection.  
Global Const wcRetainInstance = 2 ' The WebClass object is instantiated when the first HTTP request is received and not destroyed until either the ReleaseInstance method is called or the session times out. State can be safely kept within properties of the WebClass object; however, this will increase the size and decrease the scalability of your application. 
' Tristate Constants
Global Const vbTrue = 1 ' True 
Global Const vbFalse = 0 ' False 
Global Const vbUseDefault = 2 ' Use default setting 
' Variant Type Constants
Global Const vbVEmpty = 0 ' Empty (uninitialized) 
Global Const vbVNull = 1 ' Null (no valid data) 
Global Const vbVInteger = 2 ' Integer data type 
Global Const vbVLong = 3 ' Long integer data type 
Global Const vbVSingle = 4 ' Single-precision floating-point data type 
Global Const vbVDouble = 5 ' Double-precision floating-point data type 
Global Const vbVCurrency = 6 ' Currency (scaled integer) data type 
Global Const vbVDate = 7 ' Date data type 
Global Const vbVString = 8 ' String data type 
' Menu Accelerator Constants
Global Const vbMenuAccelCtrlA = 1 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlB = 2 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlC = 3 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlD = 4 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlE = 5 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlF = 6 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlG = 7 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlH = 8 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlI = 9 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlJ = 10 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlK = 11 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlL = 12 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlM = 13 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlN = 14 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlO = 15 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlP = 16 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlQ = 17 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlR = 18 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlS = 19 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlT = 20 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlU = 21 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlV = 22 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlW = 23 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlX = 24 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlY = 25 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlZ = 26 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelF1 = 27 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelF2 = 28 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelF3 = 29 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelF4 = 30 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelF5 = 31 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelF6 = 32 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelF7 = 33 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelF8 = 34 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelF9 = 35 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelF11 = 36 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelF12 = 37 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlF1 = 38 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlF2 = 39 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlF3 = 40 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlF4 = 41 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlF5 = 42 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlF6 = 43 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlF7 = 44 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlF8 = 45 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlF9 = 46 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlF11 = 47 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlF12 = 48 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelShiftF1 = 49 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelShiftF2 = 50 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelShiftF3 = 51 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelShiftF4 = 52 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelShiftF5 = 53 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelShiftF6 = 54 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelShiftF7 = 55 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelShiftF8 = 56 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelShiftF9 = 57 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelShiftF11 = 58 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelShiftF12 = 59 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelShiftCtrlF1 = 60 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelShiftCtrlF2 = 61 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelShiftCtrlF3 = 62 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelShiftCtrlF4 = 63 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelShiftCtrlF5 = 64 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelShiftCtrlF6 = 65 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelShiftCtrlF7 = 66 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelShiftCtrlF8 = 67 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelShiftCtrlF9 = 68 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelShiftCtrlF11 = 69 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelShiftCtrlF12 = 70 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelCtrlIns = 71 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelShiftIns = 72 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelDel = 73 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelShiftDel = 74 ' User-defined shortcut keystrokes 
Global Const vbMenuAccelAltBksp = 75 ' User-defined shortcut keystrokes 
'1 Control Constants
' ComboBox Control
Global Const vbComboDropdown = 0 ' Dropdown Combo 
Global Const vbComboSimple = 1 ' Simple Combo 
Global Const vbComboDropdownList = 2 ' Dropdown List 
' CheckBox Control
Global Const vbUnchecked = 0 ' Unchecked 
Global Const vbChecked = 1 ' Checked 
Global Const vbGrayed = 2 ' Grayed 
' ListBox Control
Global Const vbListBoxStandard = 0 ' Standard Windows ListBox appearance 
Global Const vbListBoxCheckBox = 1 ' Listbox entries contain selectable CheckBoxes 
Global Const vbMultiSelectNone = 0 ' No multiple selection 
Global Const vbMultiSelectSimple = 1 ' Simple multiple selection 
Global Const vbMultiSelectExtended = 2 ' Extended multiple selection 
' ScrollBar Control
Global Const vbSBNone = 0 ' None 
Global Const vbHorizontal = 1 ' Horizontal 
Global Const vbVertical = 2 ' Vertical 
Global Const vbBoth = 3 ' Both 
' Shape Control
Global Const vbShapeRectangle = 0 ' Rectangle 
Global Const vbShapeSquare = 1 ' Square 
Global Const vbShapeOval = 2 ' Oval 
Global Const vbShapeCircle = 3 ' Circle 
Global Const vbShapeRoundedRectangle = 4 ' Rounded rectangle 
Global Const vbShapeRoundedSquare = 5 ' Rounded square 
'1 CommonDialog Control Constants
' File Open/Save Dialog Box Flags
Global Const cdlOFNAllowMultiselect = &H200 ' Specifies that the File Namelist box allows multiple selections.
Global Const cdlOFNCreatePrompt = &H2000 ' Specifies that the dialog box prompts the user to create a file that doesn't currently exist. This flag automatically sets the cdlOFNPathMustExist and cdlOFNFileMustExist flags. 
Global Const cdlOFNExplorer = &H80000 ' Use the Explorer-like Open A File dialog box template. Common dialogs that use this flag do not work under Windows NT using the Windows 95 shell. 
Global Const CdlOFNExtensionDifferent = &H400 ' Indicates that the extension of the returned filename is different from the extension specified by the DefaultExt property. This flag isn't set if the DefaultExt property is Null, if the extensions match, or if the file has no extension. This flag value can be checked upon closing the dialog box. 
Global Const cdlOFNFileMustExist = &H1000 ' Specifies that the user can enter only names of existing files in the File Name text box. If this flag is set and the user enters an invalid filename, a warning is displayed. This flag automatically sets the cdlOFNPathMustExist flag. 
Global Const cdlOFNHelpButton = &H10 ' Causes the dialog box to display the Help button. 
Global Const cdlOFNHideReadOnly = &H4 ' Hides the Read Onlycheck box. 
Global Const cdlOFNLongNames = &H200000 ' Use long filenames. 
Global Const cdlOFNNoChangeDir = &H8 ' Forces the dialog box to set the current directory to what it was when the dialog box was opened. 
Global Const CdlOFNNoDereferenceLinks = &H100000 ' Do not dereference shell links (also known as shortcuts). By default, choosing a shell link causes it to be dereferenced by the shell. 
Global Const cdlOFNNoLongNames = &H40000 'Do not use long file names. 
Global Const CdlOFNNoReadOnlyReturn = &H8000  ' Specifies that the returned file won't have the Read Only attribute set and won't be in a write-protected directory. 
Global Const cdlOFNNoValidate = &H100 ' Specifies that the common dialog box allows invalid characters in the returned filename. 
Global Const cdlOFNOverwritePrompt = &H2 ' Causes the Save As dialog box to generate a message box if the selected file already exists. The user must confirm whether to overwrite the file. 
Global Const cdlOFNPathMustExist = &H800 ' Specifies that the user can enter only validpaths. If this flag is set and the user enters an invalid path, a warning message is displayed. 
Global Const cdlOFNReadOnly = &H1 ' Causes the Read Only check box to be initially checked when the dialog box is created. This flag also indicates the state of the Read Only check box when the dialog box is closed. 
Global Const CdlOFNShareAware = &H4000 ' Specifies that sharing violation errors will be ignored. 
' Color Dialog Box Flags
Global Const cdlCCFullOpen = &H2 ' Entire dialog box is displayed, including the Define Custom Colors section 
Global Const cdlCCShowHelp = &H8 ' Causes the dialog box to display a Help button 
Global Const cdlCCPreventFullOpen = &H4 ' Disables the Define Custom Colors command button and prevents the user from defining custom colors 
Global Const cdlCCRGBInit = &H1 ' Sets the initial color value for the dialog box 
' Fonts Dialog Box Flags
Global Const cdlCFANSIOnly = &H400 ' Specifies that the dialog box allows only a selection of the fonts that use the Windows character set. If this flag is set, the user won't be able to select a font that contains only symbols. 
Global Const cdlCFApply = &H200 ' Enables the Apply button on the dialog box. 
Global Const cdlCFBoth = &H3 ' Causes the dialog box to list the available printer and screen fonts. The hDC property identifies thedevice context associated with the printer. 
Global Const cdlCFEffects = &H100 ' Specifies that the dialog box enables strikethrough, underline, and color effects. 
Global Const cdlCFFixedPitchOnly = &H4000 ' Specifies that the dialog box selects only fixed-pitch fonts. 
Global Const cdlCFForceFontExist = &H10000 ' Specifies that an error message box is displayed if the user attempts to select a font or style that doesn't exist. 
Global Const cdlCFHelpButton = &H4 ' Causes the dialog box to display a Help button. 
Global Const cdlCFLimitSize = &H2000 ' Specifies that the dialog box selects only font sizes within the range specified by the Min and Max properties. 
Global Const cdlCFNoFaceSel = &H80000 ' No font name selected. 
Global Const cdlCFNoSimulations = &H1000 ' Specifies that the dialog box doesn't allow graphic device interface (GDI) font simulations. 
Global Const cdlCFNoSizeSel = &H200000 ' No font size selected. 
Global Const cdlCFNoStyleSel = &H100000 ' No style was selected. 
Global Const cdlCFNoVectorFonts = &H800 ' Specifies that the dialog box doesn't allow vector-font selections. 
Global Const cdlCFPrinterFonts = &H2 ' Causes the dialog box to list only the fonts supported by the printer, specified by the hDC property. 
Global Const cdlCFScalableOnly = &H20000 ' Specifies that the dialog box allows only the selection of fonts that can be scaled.  
Global Const cdlCFScreenFonts = &H1 ' Causes the dialog box to list only the screen fonts supported by the system. 
Global Const cdlCFTTOnly = &H40000 ' Specifies that the dialog box allows only the selection of TrueType fonts. 
Global Const cdlCFWYSIWYG = &H8000 ' Specifies that the dialog box allows only the selection of fonts that are available on both the printer and on screen. If this flag is set, the cdlCFBoth and cdlCFScalableOnly flags should also be set. 
' Printer Dialog Box Flags
Global Const cdlPDAllPages = &H0 ' Returns or sets the state of the All Pagesoption button. 
Global Const cdlPDCollate = &H10 ' Returns or sets the state of the Collatecheck box. 
Global Const cdlPDDisablePrintToFile = &H80000 ' Disables the Print To File check box. 
Global Const cdlPDHelpButton = &H800 ' Causes the dialog box to display the Help button. 
Global Const cdlPDHidePrintToFile = &H100000 ' Hides the Print To File check box. 
Global Const cdlPDNoPageNums = &H8 ' Disables the Pages option button and the associated edit control. 
Global Const cdlPDNoSelection = &H4 ' Disables the Selection option button. 
Global Const cdlPDNoWarning = &H80 ' Prevents a warning message from being displayed when there is no default printer. 
Global Const cdlPDPageNums = &H2 ' Returns or sets the state of the Pages option button. 
Global Const cdlPDPrintSetup = &H40 ' Causes the system to display the Print Setup dialog box rather than the Print dialog box. 
Global Const cdlPDPrintToFile = &H20 ' Returns or sets the state of the Print To File check box. 
Global Const cdlPDReturnDC = &H100 ' Returns adevice context for the printer selection made in the dialog box. The device context is returned in the dialog box's hDC property. 
Global Const cdlPDReturnDefault = &H400 ' Returns default printer name. 
Global Const cdlPDReturnIC = &H200 ' Returns an information context for the printer selection made in the dialog box. An information context provides a fast way to get information about the device without creating a device context. The information context is returned in the dialog box's hDC property. 
Global Const cdlPDSelection = &H1 ' Returns or sets the state of the Selection option button. If neither cdlPDPageNums nor cdlPDSelection is specified, the All option button is in the selected state. 
Global Const cdlPDUseDevModeCopies = &H40000 ' If a printer driver doesn't support multiple copies, setting this flag disables the copies edit control. If a driver does support multiple copies, setting this flag indicates that the dialog box stores the requested number of copies in the Copies property. 
' Help Constants
Global Const cdlHelpCommandHelp = &H102 ' Displays Help for a particular command 
Global Const cdlHelpContents = &H3 ' Displays the contents topic in the current Help file 
Global Const cdlHelpContext = &H1 ' Displays Help for a particular topic 
Global Const cdlHelpContextPopup = &H8 ' Displays a topic identified by a context number 
Global Const cdlHelpForceFile = &H9 ' Creates a Help file that displays text in only one font 
Global Const cdlHelpHelpOnHelp = &H4 ' Displays Help for using the Help application itself 
Global Const cdlHelpIndex = &H3 ' Displays the index of the specified Help file 
Global Const cdlHelpKey = &H101 ' Displays Help for a particular keyword 
Global Const cdlHelpPartialKey = &H105 ' Calls the search engine in Windows Help 
Global Const cdlHelpQuit = &H2 ' Notifies the Help application that the specified Help file is no longer in use 
Global Const cdlHelpSetContents = &H5 ' Designates a specific topic as the contents topic 
Global Const cdlHelpSetIndex = &H5 ' Sets the current index for multi-index Help 
' CommonDialog Error Constants
Global Const cdlAlloc = &H7FF0 ' Couldn't allocate memory for FileName or Filter property 
Global Const cdlCancel = &H7FF3 ' Cancel was selected 
Global Const cdlDialogFailure = &H8000 ' The function failed to load the dialog box 
Global Const cdlFindResFailure = &H7FF9 ' The function failed to load a specified resource 
Global Const cdlHelp = &H7FEF ' Call to Windows Help failed 
Global Const cdlInitialization = &H7FFD ' The function failed during initialization 
Global Const cdlLoadResFailure = &H7FF8 ' The function failed to load a specified string 
Global Const cdlLockResFailure = &H7FF7 ' The function failed to lock a specified resource 
Global Const cdlMemAllocFailure = &H7FF6 ' The function was unable to allocate memory for internal data structures 
Global Const cdlMemLockFailure = &H7FF5 ' The function was unable to lock the memory associated with a handle 
Global Const cdlNoFonts = &H5FFE ' No fonts exist 
Global Const cdlBufferTooSmall = &H4FFC ' The buffer at which the member lpstrFile points is too small 
Global Const cdlInvalidFileName = &H4FFD ' Filename is invalid 
Global Const cdlSubclassFailure = &H4FFE ' An attempt to subclass a list box failed due to insufficient memory 
Global Const cdlCreateICFailure = &H6FF5 ' The PrintDlg function failed when it attempted to create an information context 
Global Const cdlDndmMismatch = &H6FF6 ' Data in the DevMode and DevNames data structures describe two different printers 
Global Const cdlGetDevModeFail = &H6FFA ' The printer device driver failed to initialize a DevMode data structure 
Global Const cdlInitFailure = &H6FF9 ' The PrintDlg function failed during initialization 
Global Const cdlLoadDrvFailure = &H6FFB ' The PrintDlg function failed to load the specified printer's device driver 
Global Const cdlLoadStrFailure = &H7FFA ' The function failed to load a specified string. 
Global Const cdlNoDefaultPrn = &H6FF7 ' A default printer doesn't exist 
Global Const cdlNoDevices = &H6FF8 ' No printer device drivers were found 
Global Const cdlParseFailure = &H6FFD ' The CommonDialog function failed to parse the strings in the [devices] section of registry 
Global Const cdlPrinterCodes = &H6FFF ' The PDReturnDefault flag was set, but either the hDevMode or hDevNames field was nonzero 
Global Const cdlPrinterNotFound = &H6FF4 ' The [devices] section of the registry doesn't contain an entry for the requested printer 
Global Const cdlRetDefFailure = &H6FFC ' The PDReturnDefault flag was set, but either the hDevMode or hDevNames field was nonzero 
Global Const cdlSetupFailure = &H6FFE ' Failed to load required resources 
'1 ADO Data Control Constants
' Appearance Constants
Global Const adFlatBevel = 0 ' Flat bevel 
Global Const ad3Dbevel = 1 ' 3D bevel 
' BOFAction Constants
Global Const adDoMoveFirst = 0 ' Move to the first record 
Global Const adStayBOF = 1 ' Remain at the beginning 
' CommandType Constants
Global Const adCmdText = 1 ' Text 
Global Const adCmdTable = 2 ' Table 
Global Const adCmdStoredProc = 4 ' Stored procedure 
Global Const adCmdUnknown = 8 ' Unknown 
' Mode Constants
Global Const adModeUnknown = 0 ' Unknown 
Global Const adModeRead = 1 ' Read 
Global Const adModeWrite = 2 ' Write 
Global Const adModeReadWrite = 3 ' Read/Write 
Global Const adModeShareDenyRead = 4 ' DenyRead 
Global Const adModeShareDenyWrite = 8 ' DenyWrite 
Global Const adModeShareExclusive = 12 ' Exclusive 
Global Const adModeShareDenyNone = 16 ' DenyNone 
' ConnectionString Constants
Global Const adConnectStringTypeUnknown = 0 ' Unknown. 
Global Const adOLEDB = 1 ' OLEDB connection string. 
Global Const adOLEDBFile = 2 ' Use OLEDB file. 
Global Const adODBC = 3 ' Use ODBC. 
' CursorLocation Constants
Global Const adUseServer = 2 ' Use server cursors 
Global Const adUseClient = 3 ' Use client batch cursors 
' CursorType Constants
Global Const adOpenKeyset = 1 ' Keyset Cursor 
Global Const adOpenDynamic = 2 ' Dynamic Cursor 
Global Const adOpenStatic = 3 ' Static Cursor 
' EOFAction Constants
Global Const adDoMoveLast = 0 ' Move to last record 
Global Const adStayEOF = 1 ' Stay at the EOF 
Global Const adDoAddNew = 2 ' Add a new record 
' EventReason Constants
Global Const adRsnAddNew = 1 ' New record to be added. 
Global Const adRsnDelete = 2 ' Record deleted. 
Global Const adRsnUpdate = 3 ' Record to be updated. 
Global Const adRsnUndoUpdate = 4 ' Undo update. 
Global Const adRsnUndoAddNew = 5 ' Undo add new record. 
Global Const adRsnUndoDelete = 6 ' Undo delete. 
Global Const adRsnRequery = 7 ' Requery 
Global Const adRsnResynch = 8 ' Resynchronize 
Global Const adRsnClose = 9 ' Close 
Global Const adRsnMove = 10 ' Move 
' EventStatus Constants
Global Const adStatusOK = 1 ' OK 
Global Const adStatusErrorsOccurred = 2 ' Errors occurred. 
Global Const adStatusCantDeny = 3 '  
Global Const adStatusCancel = 4 ' Cancel 
Global Const adStatusUnwantedEvent = 5 '  
' LockType Constants
Global Const adLockUnspecified = -1 'Unspecified LockType 
Global Const adLockReadOnly = 1 ' ReadOnly LockType 
Global Const adLockPessimistic = 2 ' Pessimistic LockType 
Global Const adLockOptimistic = 3 ' Optimistic LockType 
Global Const adLockBatchOptimistic = 4 ' BatchOptimistic LockType 
' Orientation Constants
Global Const adHorizontal = 0 ' Horizontal orientation 
Global Const adVertical = 1 ' Vertical orientation 
'1 DataGrid Control Constants
' AddNewMode Constants
Global Const dbgNoAddNew = 0 ' No AddNew 
Global Const dbgAddNewCurrent = 1 ' AddNew current 
Global Const dbgAddNewPending = 2 ' AddNew pending 
' Alignment Constants
Global Const dbgLeft = 0 ' Left 
Global Const dbgRight = 1 ' Right 
Global Const dbgCenter = 2 ' Center 
Global Const dbgGeneral = 3 ' General 
' Appearance Constants
Global Const dbgFlat = 0 ' Flat appearance 
Global Const dbg3D = 1 ' 3D appearance 
' BorderStyle Constants
Global Const dbgNoBorder = 0 ' None 
Global Const dbgFixedSingle = 1 ' FixedSingle 
' DividerStyle Constants
Global Const dbgNoDividers = 0 ' No dividers 
Global Const dbgBlackLine = 1 ' Black line 
Global Const dbgDarkGrayLine = 2 ' Dark gray line 
Global Const dbgRaised = 3 ' Raised 
Global Const dbgInset = 4 ' Inset 
Global Const dbgUseForeColor = 5 ' Use forecolor 
Global Const dbgLightGrayLine = 6 ' Light gray line 
' Error Constants
Global Const dbgActionCanceled = 7011 ' Action is canceled 
Global Const dbgAddError = 6154 ' Error occurred while trying to add record 
Global Const dbgBadEvent = 6161 ' Operation is invalid within the event 
Global Const dbgBindError = 4097 ' Cannot initialize data bindings 
Global Const dbgCNotFound = 6147 ' Column not found 
Global Const dbgColIndex = 6145 ' Invalid column index 
Global Const dbgColReadOnly = 7010 ' The column is read only 
Global Const dbgConvertData = 7006 ' Data type conversion error 
Global Const dbgDataAccess = 6160 ' Data access error 
Global Const dbgDelError = 6155 ' Error occurred while trying to delete record 
Global Const dbgDelMultRows = 6159 ' Cannot delete multiple rows 
Global Const dbgErrorSetCurrent = 6152 ' Error occurred while trying to set current row 
Global Const dbgErrUpdateColumn = 7007 ' Error occurred while trying to update the column value 
Global Const dbgInvalidPropertyValue = 380 ' Invalid property value 
Global Const dbgInvalidSafeModeProcCall = 680 ' Invalid procedure call in safe mode 
Global Const dbgInvBookmark = 6149 ' Invalid bookmark 
Global Const dbgInvRowNum = 6148 ' Invalid row number 
Global Const dbgMustHaveSplit = 7002 ' Cannot delete last split 
Global Const dbgNoCurrentRow = 7008 ' The current row is not available 
Global Const dbgNoMethodNow = 7003 ' Method is not available in this context 
Global Const dbgNoPropNow = 6162 ' Property is not available in this context 
Global Const dbgNoRowFound = 7009 ' Cannot find the row 
Global Const dbgNoRowset = 7005 ' Rowset not available 
Global Const dbgNotBookmarkable = 7004 ' The rowset is not bookmarkable 
Global Const dbgOrphaned = 7000 ' Supporting object on the grid has been deleted 
Global Const dbgOutOfMemory = 7 ' Out of memory 
Global Const dbgScrollRange = 6151 ' Scroll arguments out of range 
Global Const dbgSplitIndex = 6244 ' Invalid split index 
Global Const dbgSubscriptRange = 9 ' Subscript out of range 
Global Const dbgTypeMismatch = 13 ' Type mismatch 
Global Const dbgUnknown = 7001 ' An unknown error code was received where it was not expected 
Global Const dbgUpdError = 6153 ' Error occurred while trying to update record 
' MarqueeStyle Constants
Global Const dbgDottedCellBorder = 0 ' Dotted cell border 
Global Const dbgSolidCellBorder = 1 ' Solid cell border 
Global Const dbgHighlightCell = 2 ' Highlight the cell 
Global Const dbgHighlightRow = 3 ' Highlight the row 
Global Const dbgHighlightRowRaiseCell = 4 ' Highlight row, raise cell 
Global Const dbgNoMarquee = 5 ' No marquee 
Global Const dbgFloatingEditor = 6 ' Floating editor 
' ScrollBar Constants
Global Const dbgNone = 0 ' None 
Global Const dbgHorizontal = 1 ' Horizontal 
Global Const dbgVertical = 2 ' Vertical 
Global Const dbgBoth = 3 ' Both 
Global Const dbgAutomatic = 4 ' Automatic 
' SplitSizeMode Constants
Global Const dbgScalable = 0 ' Scalable 
Global Const dbgExact = 1 ' Exact 
' TabAction Constants
Global Const dbgControlNavigation = 0 ' Control navigation 
Global Const dbgColumnNavigation = 1 ' Column navigation 
Global Const dbgGridNavigation = 2 ' Grid navigation 
'1 DataRepeater Control Constants
' Appearance Constants
Global Const drpflat = 0 ' Control appears flat. 
Global Const drp3D = 1 ' Control has 3D features. 
' BorderStyle Constants
Global Const drpNoBorder = 0 ' Control has no border. 
Global Const drpFixedSingle = 1 ' Control has a single line border 
' CaptionStyle Constants
Global Const drpNoCaption = 0 ' Caption is hidden. 
Global Const drpLeftAligned = 1 ' Caption is left-aligned. 
Global Const drpRightAligned = 2 ' Caption is right-aligned. 
Global Const drpCentered = 3 ' Caption is centered. 
' Error Constants
Global Const drpOutOfMemory = 7 ' Out of memory. 
Global Const drpTypeMismatch = 13 ' Type mismatch. 
Global Const drpObjVarNotSet = 91 ' (&H5B) Object variable or With block variable not set. 
Global Const drpInvalidPropertyValue = 380 ' (&H17C) Invalid property value. 
Global Const drpInvalidPropertyArrayIndex = 381 ' (&H17D) Invalid property array index. 
Global Const drpSetNotSupportedAtRuntime = 382 ' (&H17E) The property can't be set at run time. 
Global Const drpSetNotSupported = 383 ' (&H17F) Property is read-only. 
Global Const drpSetNotPermitted = 387 ' (&H183) Property can't be set on this control. 
Global Const drpGetNotSupported = 394 ' (&H18A) Property is write-only. 
Global Const drpObjectDoesntSupportProp = 438 ' (&H1B6) Object doesn't support this property or method. 
Global Const drpCreateRepeaterControl = 32000 ' (&H7D00) Unable to create RepeatedControl 
Global Const drpInvalidProgID = 32001 ' (&H7D01) Invalid ProgID or class object not supported. 
Global Const drpInvalidBookmark = 32002 ' (&H7D02) Invalid bookmark 
Global Const drpNoDataSource = 32003 ' (&H7D03) No datasource or datasource is empty. 
Global Const drpNoVisibleRows = 32004 ' (&H7D04) There are no visible rows. 
Global Const drpCantSetActiveRow = 32005 ' (&H7D05) The active row cannot be set without affecting the current record position. 
Global Const drpBadVisibleRecordIndex = 32006 ' (&H7D06) VisibleRecord index must be between zero and VisibleRows-1. 
Global Const drpInvalidRecordBookmark = 32007 ' (&H7D07) The bookmark is invalid or the corresponding record is no longer present. 
Global Const drpIndexOutOfBounds = 35600 ' (&H8B10) Index out of bounds. 
Global Const drpElemNotFound = 35601 ' (&H8B11) Element not found. 
Global Const drpNonUniqueKey = 35602 ' (&H8B12) Key is not unique in collection. 
Global Const drpInvalidKey = 35603 ' (&H8B13) Invalid key. 
Global Const drpElemNotPartOfCollection = 35605 ' (&H8B15) Object is no longer a collection member. 
Global Const drpCollectionChangedDuringEnum = 35606 ' (&H8B16) Control's collection has been modified. 
Global Const drpBadObjectReference = 35610 ' (&H8B1A) Invalid object. 
Global Const drpWouldIntroduceCycle = 35614 ' (&H8B1E) Action would introduce a cycle. 
Global Const drpCircularReference = 35700 ' (&H8B74) Circular object referencing is not allowed. 
Global Const drpPropertyNotBindable = 35701 ' (&H8B75) Property is not bindable. 
Global Const drpInvalidIndexOrKey = 35702 ' (&H8B76) Invalid index or key. 
Global Const drpAlreadyBound = 35703 ' (&H8B77) PropertyName already bound. 
Global Const drpInvalidPropertyName = 35704 ' (&H8B78) Invalid PropertyName. 
Global Const drpInvalidDataField = 35705 ' (&H8B79) Invalid DataField. 
' MousePointer Constants
Global Const drpDefault = 0 ' Default. 
Global Const drpArrow = 1 ' Arrow mouse pointer. 
Global Const drpCross = 2 ' Cross mouse pointer. 
Global Const drpIBeam = 3 ' I-Beam mouse pointer. 
Global Const drpIcon = 4 ' Icon mouse pointer. 
Global Const drpSize = 5 ' Size mouse pointer. 
Global Const drpSizeNESW = 6 ' Size NE SW mouse pointer. 
Global Const drpSizeNS = 7 ' Size N S mouse pointer. 
Global Const drpSizeNWSE = 8 ' Size NW SE mouse pointer. 
Global Const drpSizeEW = 9 ' Size W E mouse pointer. 
Global Const drpUpArrow = 10 ' Up arrow mouse pointer. 
Global Const drpHourglass = 11 ' Hourglass mouse pointer. 
Global Const drpNoDrop = 12 ' No drop mouse pointer. 
Global Const drpArrowHourglass = 13 ' Arrow and Hourglass mouse pointer 
Global Const drpArrowQuestion = 14 ' Arrow and Question mark mouse pointer. 
Global Const drpSizeAll = 15 ' Size all mouse pointer. 
Global Const drpCustom = 99 ' (&H63) Custom mouse pointer icon specified by the MouseIcon property. 
' RowDividerStyle Constants
Global Const drpNoDivider = 0 ' No line drawn between rows. 
Global Const drpFlatLine = 1 ' Flat line drawn between rows. 
Global Const drpInset = 2 ' 3D inset line drawn between rows. 
Global Const drpRaised = 3 ' 3D raised line drawn between rows. 
' Scrollbars Constants
Global Const drpNoScrollBars = 0 ' No scrollbars. 
Global Const drpHorizontal = 1 ' Horizontal scrollbars only. 
Global Const drpVertical = 2 ' Vertical scrollbars only. 
Global Const drpBoth = 3 ' Horizontal and Vertical scrollbars appear. 
Global Const drpAuto = 4 ' Scrollbars are drawn as required. 
'1 Masked Edit Control Constants
' Appearance Constants
Global Const mskFlat = 0 ' Flat. Paints controls and forms without visual effects. 
Global Const mskThreeD = 1 ' (Default) 3D. Paints controls with three-dimensional effects. 
' BorderStyle Constants
Global Const vbBSNone = 0 ' No border 
Global Const vbFixedSingle = 1 ' Fixed single 
' ClipBoard Constants
Global Const mskCFRTF = &HFFFFBF01 ' Rich Text Format (.rtf file) 
Global Const mskCFText = 1 ' Text (.txt file) 
Global Const mskCFBitmap = 2 ' Bitmap (.bmp file) 
Global Const mskCFMetafile = 3 ' Metafile (.wmf file) 
Global Const mskCFDIB = 8 ' Device-independent bitmap 
Global Const mskCFPalette = 9 ' Color palette 
Global Const mskCFEMetafile = 14 ' Extended Metafile (.emf file) 
Global Const mskCFFiles = 15 ' Filename list 
' ClipMode Constants
Global Const mskIncludeLiterals = 0 ' Include literals on cut or copy. 
Global Const mskExcludeLiterals = 1 ' Exclude literals on cut or copy. 
' DragOver Constants
Global Const mskEnter = 0 ' Source control dragged into target. 
Global Const mskLeave = 1 ' Source control dragged out of target. 
Global Const mskOver = 2 ' Source control dragged from one position in target to another. 
' Error Constants
Global Const mskDataObjectLocked = 672 ' DataObject formats list may not be cleared or expanded outside of the OLEStartDrag event. 
Global Const mskExpectedAnArgument = 673 ' Expected at least one argument. 
Global Const mskFormatNotByteArray = 675 ' Non-intrinsic OLE drag and drop formats used with SetData require Byte array data. GetData may return more bytes than were given to SetData. 
Global Const mskGetNotSupported = 394 ' Property is write-only. 
Global Const mskInvalidObjectUse = 425 ' Invalid object use. 
Global Const mskInvalidProcedureCall = 5 ' Invalid procedure call. 
Global Const mskInvalidPropertyValue = 380 ' Invalid property value. 
Global Const mskRecursiveOleDrag = 674 ' Illegal recursive invocation of OLE drag and drop. 
Global Const mskSetNotSupported = 383 ' Property is read-only. 
Global Const mskWrongClipboardFormat = 461 ' Specified format doesn't match format of data. 
' MousePointer Constants
Global Const mskDefault = 0 ' Default 
Global Const mskArrow = 1 ' Arrow 
Global Const mskCross = 2 ' Crosshair 
Global Const mskIbeam = 3 ' I beam 
Global Const mskIcon = 4 ' Icon 
Global Const mskSize = 5 ' Size 
Global Const mskSizeNESW = 6 ' Size NE, SW mouse pointer 
Global Const mskSizeNS = 7 ' Size N, S mouse pointer 
Global Const mskSizeNWSE = 8 ' Size NW, SE mouse pointer 
Global Const mskSizeEW = 9 ' Size W, E mouse pointer 
Global Const mskUpArrow = 10 ' Up arrow 
Global Const mskHourglass = 11 ' Hourglass 
Global Const mskNoDrop = 12 ' No drop 
Global Const mskArrowHourglass = 13 ' Arrow and hourglass 
Global Const mskArrowQuestion = 14 ' Arrow and question mark 
Global Const mskSizeAll = 15 ' Size all 
Global Const mskCustom = 99 ' Custom icon specified by the MouseIcon property 
' OLEDrag Constants
Global Const mskOLEDragManual = 0 ' OLE drag/drop is initialized only under programmatic control. 
Global Const mskOLEDragAutomatic = 1 ' OLE drag/drop is initialized when the user drags 'out' of the control, or under programmatic control. 
' OLEDrop Constants
Global Const mskOLEDropNone = 0 ' Accepts no OLE drag/drop operations. 
Global Const mskOLEDropManual = 1 ' Accepts an OLE drag/drop under programmatic control only. 
Global Const mskOLEDropAutomatic = 2 ' Accepts an OLE drag/drop without programmatic control. 
' OLEDropEffect Constants
Global Const mskOLEDropEffectNone = 0 ' No OLE drag/drop operation has taken place/would take place. 
Global Const mskOLEDropEffectCopy = 1 ' A mask to indicate that a copy has taken place/would take place. 
Global Const mskOLEDropEffectMove = 2 ' A mask to indicate that a move has take place/would take place. 
Global Const mskOLEDropEffectScroll = &H80000000 ' A mask to indicate that the drop target window has scrolled/would scroll. 
'1 Menu Control Constants
' PopupMenu Method Alignment
Global Const vbPopupMenuLeftAlign = 0 ' Pop-up menu left-aligned 
Global Const vbPopupMenuCenterAlign = 4 ' Pop-up menu centered 
Global Const vbPopupMenuRightAlign = 8 ' Pop-up menu right-aligned 
' PopupMenu Mouse Button Recognition
Global Const vbPopupMenuLeftButton = 0 ' Pop-up menu recognizes left mouse button only 
Global Const vbPopupMenuRightButton = 2 ' Pop-up menu recognizes right and left mouse buttons 
'1 MSHFlexGrid Control Constants
' AddModeSettings Property (MSHFlexGrid)
Global Const flexNoAddNew = 0 ' The current cell is not in the last row, and no AddNew operation is pending. 
Global Const flexAddNewCurrent = 1 ' The current cell is in the last row, but no AddNew operation is pending. 
Global Const flexAddNewPending = 2 ' The current cell is in the next to last row. This is a result of either a pending AddNew operation initiated by the user through the user interface of the MSHFlexGrid, or setting a column抯 Value or Text property programmatically. 
' AllowUserResizing Property
Global Const flexResizeNone = 0 ' The user cannot resize with the mouse. This is the default. 
Global Const flexResizeColumns = 1 ' The user can resize columns using the mouse. 
Global Const flexResizeRows = 2 ' The user can resize rows using the mouse. 
Global Const flexResizeBoth = 3 ' The user can resize columns and rows using the mouse. 
' Appearance Property
Global Const flexFlat = 0 ' The overall look of MSHFlexGrid is flat, or normal. 
Global Const flex3D = 1 ' The overall look of MSHFlexGrid is three-dimensional. 
' BorderStyle Property
Global Const flexBorderNone = 0 ' There is no border. 
Global Const flexBorderSingle = 1 ' There is a single border. 
' CellAlignment Property
Global Const flexAlignLeftTop = 0 ' The cell content is aligned left, top. 
Global Const flexAlignLeftCenter = 1 ' The cell content is aligned left, center. This is the default for strings. 
Global Const flexAlignLeftBottom = 2 ' The cell content is aligned left, bottom. 
Global Const flexAlignCenterTop = 3 ' The cell content is aligned center, top. 
Global Const flexAlignCenterCenter = 4 ' The cell content is aligned center, center. 
Global Const flexAlignCenterBottom = 5 ' The cell content is aligned center, bottom. 
Global Const flexAlignRightTop = 6 ' The cell content is aligned right, top. 
Global Const flexAlignRightCenter = 7 ' The cell content is aligned right, center. This is the default for numbers. 
Global Const flexAlignRightBottom = 8 ' The cell content is aligned right, bottom. 
Global Const flexAlignGeneral = 9 ' The cell content is of general alignment. This is "left, center" for strings and "right, center" for numbers. 
' CellPictureAlignment Property
Global Const flexAlignLeftTop = 0 ' The picture is aligned left, top. 
Global Const flexAlignLeftCenter = 1 ' The picture is aligned left, center. 
Global Const flexAlignLeftBottom = 2 ' The picture is aligned left, bottom. 
Global Const flexAlignCenterTop = 3 ' The picture is aligned center, top. 
Global Const flexAlignCenterCenter = 4 ' The picture is aligned center, center. 
Global Const flexAlignCenterBottom = 5 ' The picture is aligned center, bottom. 
Global Const flexAlignRightTop = 6 ' The picture is aligned right, top. 
Global Const flexAlignRightCenter = 7 ' The picture is aligned right, center. 
Global Const flexAlignRightBottom = 8 ' The picture is aligned right, bottom. 
' CellTextStyle, TextStyle, TextStyleFixed Properties
Global Const flexTextFlat = 0 ' The text is normal, flat text. 
Global Const flexTextRaised = 1 ' The text appears raised. 
Global Const flexTextInset = 2 ' The text appears inset. 
Global Const flexTextRaisedLight = 3 ' The text appears slightly raised. 
Global Const flexTextInsetLight = 4 ' The text appears slightly inset. 
' CellType Properties (MSHFlexGrid)
Global Const flexCellTypeStandard = 0 ' The cell is a standard cell. 
Global Const flexCellTypeFixed = 1 ' The cell is contained in a fixed row or column. 
Global Const flexCellTypeHeader = 2 ' The cell is a header cell for a band of data. 
Global Const flexCellTypeIndent = 3 ' The cell is used in a column that indents a band of data. 
Global Const flexCellTypeUnpopulated = 4 ' The cell is an unpopulated cell. 
' ColAlignment Properties
Global Const flexAlignLeftTop = 0 ' The column content is aligned left, top. 
Global Const flexAlignLeftCenter = 1 ' The column content is aligned left, center. This is the default for strings. 
Global Const flexAlignLeftBottom = 2 ' The column content is aligned left, bottom. 
Global Const flexAlignCenterTop = 3 ' The column content is aligned center, top. 
Global Const flexAlignCenterCenter = 4 ' The column content is aligned center, center. 
Global Const flexAlignCenterBottom = 5 ' The column content is aligned center, bottom. 
Global Const flexAlignRightTop = 6 ' The column content is aligned right, top. 
Global Const flexAlignRightCenter = 7 ' The column content is aligned right, center. This is the default for numbers. 
Global Const flexAlignRightBottom = 8 ' The column content is aligned right, bottom. 
Global Const flexAlignGeneral = 9 ' The column content is of general alignment. This is left center for strings and right center for numbers. 
' ColHeader Property (MSHFlexGrid)
Global Const flexColHeaderOff = 0 ' No headers display for the band. 
Global Const flexColHeaderOn  = 1 ' The headers display for each band.  
' DisplayBandSettings Property (MSHFlexGrid)
Global Const flexBandDisplayHorizontal = 0 ' The bands within the MSHFlexGrid display horizontally (across). This is the default. 
Global Const flexBandDisplayVertical = 1 ' The bands within the MSHFlexGrid display vertically (up and down). 
' DisplayCellSettings Property (MSHFlexGrid)
Global Const FlexCellDisplayHorizontal = 0 ' The bands within the MSHFlexGrid display horizontally (across). 
Global Const flexCellDisplayVertical = 1 ' The bands within the MSHFlexGrid display vertically (up and down). 
' FillStyle Property
Global Const flexFillSingle = 0 ' Single. Changing Text or any of the cell properties only affects the active cell. This is the default. 
Global Const flexFillRepeat = 1 ' Repeat. Changing the Text or any of the cell properties affects all selected cells. 
' FocusRect Property
Global Const flexFocusNone = 0 ' There is no focus rectangle around the current cell. 
Global Const flexFocusLight = 1 ' There is a light focus rectangle around the current cell. This is the default. 
Global Const flexFocusHeavy = 2 ' There is a heavy focus rectangle around the current cell. 
' GridLines, GridLinesFixed Properties
Global Const flexGridNone = 0 ' No Lines. There are no lines between cells. In the MSFlexGrid, this is the default for GridLines. 
Global Const flexGridFlat = 1 ' Lines. The line style between cells is set to normal, flat lines. In the MSHFlexGrid, this is the default for GridLines. 
Global Const flexGridInset = 2 ' Inset Lines. The line style between cells is set to inset lines. In the MSFlexGrid, this is the default for GridLinesFixed. 
Global Const flexGridRaised = 3 ' Raised Lines. The line style between cells is set to raised lines. In the MSHFlexGrid, this is the default for GridLinesFixed. 
' HighLight Property
Global Const flexHighlightNever = 0 ' There is no highlight on the selected cells. 
Global Const flexHighlightAlways = 1 ' The selected cells are always highlighted. This is the default. 
Global Const flexHighlightWithFocus = 2 ' The highlight appears only when the control has focus. 
' MergeCells Property
Global Const flexMergeNever = 0 ' Never. The cells containing identical content are not grouped. This is the default. 
Global Const flexMergeFree = 1 ' Free. Cells with identical content always merge. 
Global Const flexMergeRestrictRows = 2 ' Restrict Rows. Only adjacent cells (to the left) within the row containing identical content merge. 
Global Const flexMergeRestrictColumns = 3 ' Restrict Columns. Only adjacent cells (to the top) within the column containing identical content merge. 
Global Const flexMergeRestrictBoth = 4 ' Restrict Both. Only adjacent cells within the row (to the left) or column (to the top) containing identical content merge. 
' MousePointer Property
Global Const flexDefault = 0 ' The outline of MSHFlexGrid. 
Global Const flexArrow = 1 ' An arrow pointer. 
Global Const flexCross = 2 ' A set of crosshairs. 
Global Const flexIBeam = 3 ' An "I"-shaped beam to allow for text entry. 
Global Const flexIcon = 4 ' A square within a square. 
Global Const flexSize = 5 ' A resizing pointer with arrows facing up, down, left, and right. 
Global Const flexSizeNESW = 6 ' A resizing pointer with arrows pointing to the upper right and lower left. 
Global Const flexSizeNS = 7 ' A resizing pointer with arrows pointing up and down. 
Global Const flexSizeNWSE = 8 ' A resizing pointer with arrows pointing to the upper left and lower right. 
Global Const flexSizeEW = 9 ' A resizing pointer with arrows pointing left and right. 
Global Const flexUpArrow = 10 ' An arrow pointing up. 
Global Const flexHourGlass = 11 ' An hourglass symbol. 
Global Const flexNoDrop = 12 ' A no drop pointer. 
Global Const flexCustom = 13 ' A custom style pointer. 
' PictureType Property
Global Const flexPictureColor = 0 ' This produces a high-quality full-color image.  
Global Const flexPictureMonochrome = 1 ' This produces a lower-quality, monochrome, image that consumes less memory. 
' RowSizingSettings Property (MSHFlexGrid)
Global Const flexRowSizeIndividual = 0 ' Resizing a row changes only the height of the row sized. This is the default. 
Global Const flexRowSizeAll = 1 ' Resizing a row changes the height of all rows in the MSHFlexGrid. 
' SelectionMode Property
Global Const flexSelectionFree = 0 ' Free. This allows individual cells in the MSHFlexGrid to be selected, spreadsheet-style. (Default) 
Global Const flexSelectionByRow = 1 ' By Row. This forces selections to span entire rows, as in a multi-column list box or record-based display. 
Global Const flexSelectionByColumn = 2 ' By Column. This forces selections to span entire columns, as if selecting ranges for a chart or fields for sorting. 
' ScrollBars Property
Global Const flexScrollNone = 0 ' The MSHFlexGrid has no scroll bars. 
Global Const flexScrollHorizontal = 1 ' The MSHFlexGrid has a horizontal scroll bar. 
Global Const flexScrollVertical = 2 ' The MSHFlexGrid has a vertical scroll bar. 
Global Const flexScrollBoth = 3 ' The MSHFlexGrid has horizontal and vertical scroll bars. This is the default. 
' Sort Property
Global Const flexSortNone = 0 ' None. No sorting is performed. 
Global Const flexSortGenericAscending = 1 ' Generic Ascending. An ascending sort, which estimates whether text is string or number, is performed. 
Global Const flexSortGenericDescending = 2 ' Generic Descending. A descending sort, which estimates whether text is string or number, is performed. 
Global Const flexSortNumericAscending = 3 ' Numeric Ascending. An ascending sort, which converts strings to numbers, is performed. 
Global Const flexSortNumericDescending = 4 ' Numeric Descending. A descending sort, which converts strings to numbers, is performed. 
Global Const flexSortStringNoCaseAsending = 5 ' String Ascending. An ascending sort using case-insensitive string comparison is performed. 
Global Const flexSortNoCaseDescending = 6 ' String Descending. A descending sort using case-insensitive string comparison is performed. 
Global Const flexSortStringAscending = 7 ' String Ascending. An ascending sort using case-sensitive string comparison is performed. 
Global Const flexSortStringDescending = 8 ' String Descending. A descending sort using case-sensitive string comparison is performed. 
Global Const flexSortCustom = 9 ' Custom. This uses the Compare event to compare rows. 
'1 OLE Container Control Constants
' OLEType Property
Global Const vbOLELinked = 0 ' OLE container control contains a linked object 
Global Const vbOLEEmbedded = 1 ' OLE container control contains an embedded object 
Global Const vbOLENone = 3 ' OLE container control doesn't contain an object 
' OLETypeAllowed Property
Global Const vbOLEEither = 2 ' OLE container control can contain either a linked or an embedded object 
' UpdateOptions Property
Global Const vbOLEAutomatic = 0 ' Object is updated each time the linked data changes 
Global Const vbOLEFrozen = 1 ' Object is updated whenever the user saves the linked document from within the application in which it was created 
Global Const vbOLEManual = 2 ' Object is updated only when the Action property is set to 6 (Update) 
' AutoActivate Property
Global Const vbOLEActivateManual = 0 ' OLE object isn't automatically activated 
Global Const vbOLEActivateGetFocus = 1 ' Object is activated when the OLE container control gets the focus 
Global Const vbOLEActivateDoubleclick = 2 ' Object is activated when the OLE container control is double-clicked 
Global Const vbOLEActivateAuto = 3 ' Object is activated based on the object's default method of activation 
' SizeMode Property
Global Const vbOLESizeClip = 0 ' Object's image is clipped by the OLE container control's borders 
Global Const vbOLESizeStretch = 1 ' Object's image is sized to fill the OLE container control 
Global Const vbOLESizeAutoSize = 2 ' OLE container control is automatically resized to display the entire object 
Global Const vbOLESizeZoom = 3 ' Object's image is stretched but in proportion 
' DisplayType Property
Global Const vbOLEDisplayContent = 0 ' Object's data is displayed in the OLE container control 
Global Const vbOLEDisplayIcon = 1 ' Object's icon is displayed in the OLE container control 
' Updated Event Constants
Global Const vbOLEChanged = 0 ' Object's data has changed 
Global Const vbOLESaved = 1 ' Object's data has been saved by the application that created the object 
Global Const vbOLEClosed = 2 ' Application file containing the linked object's data has been closed 
Global Const vbOLERenamed = 3 ' Application file containing the linked object's data has been renamed 
' Special Verb Values
Global Const vbOLEPrimary = 0 ' Default action for the object 
Global Const vbOLEShow = -1 ' Activates the object for editing 
Global Const vbOLEOpen = -2 ' Opens the object in a separate application window 
Global Const vbOLEHide = -3 ' For embedded objects, hides the application that created the object 
Global Const vbOLEUIActivate = -4 ' All UI's associated with the object are visible and ready for use 
Global Const vbOLEInPlaceActivate = -5 ' Object is ready for the user to click inside it and start working with it 
Global Const vbOLEDiscardUndoState = -6 ' For discarding all record of changes that the object's application can undo 
' Verb Flag Bit Masks
Global Const vbOLEFlagGrayed = &H1 ' Grayed menu item 
Global Const vbOLEFlagDisabled = &H2 ' Disabled menu item 
Global Const vbOLEFlagChecked = &H8 ' Checked menu item 
Global Const vbOLEFlagSeparator = &H800 ' Separator bar in menu item list 
Global Const vbOLEMiscFlagMemStorage = &H1 ' Causes control to use memory to store the object while it's loaded 
Global Const vbOLEMiscFlagDisableInPlace = &H2 ' Forces OLE container control to activate objects in a separate window 
'1 UpdateFlags Constants
' Constant Value Description 
Global Const VtChNoDisplay = 0 ' Absence of update flags; the chart display is not affected. 
Global Const VtChDisplayPlot = 1 ' Update will cause the plot to repaint.  
Global Const VtChLayoutPlot = 2 ' Update will cause the plot to layout. 
Global Const VtChDisplayLegend = 4 ' Update will cause the legend to repaint. 
Global Const VtChLayoutLegend = 8 ' Update will cause the legend to layout. 
Global Const VtChLayoutSeries = 16 ' Update will cause the series to lay out. 
Global Const VtChPositionSection = 32 ' A chart section has been moved or resized. 
' Clipboard Object Constants
Global Const vbCFRTF = -16639 ' Rich Text Format (.rtf file) 
Global Const vbCFLink = -16640 ' DDE conversation information 
Global Const vbCFText = 1 ' Text (.txt file) 
Global Const vbCFBitmap = 2 ' Bitmap (.bmp file) 
Global Const vbCFMetafile = 3 ' Metafile (.wmf file) 
Global Const vbCFDIB = 8 ' Device-independent bitmap 
Global Const vbCFPalette = 9 ' Color palette 
Global Const vbCFEMetaFile = 14 ' Enhanced metafile (.emf file) 
Global Const vbCFFiles = 15 ' File list from Windows Explorer 
'1 Form Constants
' Show Parameters
Global Const vbModal = 1 ' Modal form 
Global Const vbModeless = 0 ' Modeless form 
' Arrange Method for MDI Forms
Global Const vbCascade = 0 ' Cascade all nonminimized MDI child forms 
Global Const vbTileHorizontal = 1 ' Horizontally tile all nonminimized MDI child forms 
Global Const vbTileVertical = 2 ' Vertically tile all nonminimized MDI child forms 
Global Const vbArrangeIcons = 3 ' Arrange icons for minimized MDI child forms 
' WindowState Property
Global Const vbNormal = 0 ' Normal 
Global Const vbMinimized = 1 ' Minimized 
Global Const vbMaximized = 2 ' Maximized 
'1 Printer Object Constants
' Printer Color Mode
Global Const vbPRCMMonochrome = 1 ' Monochrome output 
Global Const vbPRCMColor = 2 ' Color output 
' Duplex Printing
Global Const vbPRDPSimplex = 1 ' Single-sided printing 
Global Const vbPRDPHorizontal = 2 ' Double-sided horizontal printing 
Global Const vbPRDPVertical = 3 ' Double-sided vertical printing 
' Printer Orientation
Global Const vbPRORPortrait = 1 ' Documents print with the top at the narrow side of the paper 
Global Const vbPRORLandscape = 2 ' Documents print with the top at the wide side of the paper 
' Print Quality
Global Const vbPRPQDraft = -1 ' Draft print quality 
Global Const vbPRPQLow = -2 ' Low print quality 
Global Const vbPRPQMedium = -3 ' Medium print quality 
Global Const vbPRPQHigh = -4 ' High print quality 
' PaperBin Property
Global Const vbPRBNUpper = 1 ' Use paper from the upper bin 
Global Const vbPRBNLower = 2 ' Use paper from the lower bin 
Global Const vbPRBNMiddle = 3 ' Use paper from the middle bin 
Global Const vbPRBNManual = 4 ' Wait for manual insertion of each sheet of paper 
Global Const vbPRBNEnvelope = 5 ' Use envelopes from the envelope feeder 
Global Const vbPRBNEnvManual = 6 ' Use envelopes from the envelope feeder, but wait for manual insertion 
Global Const vbPRBNAuto = 7 ' (Default) Use paper from the current default bin 
Global Const vbPRBNTractor = 8 ' Use paper fed from the tractor feeder 
Global Const vbPRBNSmallFmt = 9 ' Use paper from the small paper feeder 
Global Const vbPRBNLargeFmt = 10 ' Use paper from the large paper bin 
Global Const vbPRBNLargeCapacity = 11 ' Use paper from the large capacity feeder 
Global Const vbPRBNCassette = 14 ' Use paper from the attached cassette cartridge 
' PaperSize Property
Global Const vbPRPSLetter = 1 ' Letter, 8 1/2 x 11 in 
Global Const vbPRPSLetterSmall = 2 ' +A611Letter Small, 8 1/2 x 11 in 
Global Const vbPRPSTabloid = 3 ' Tabloid, 11 x 17 in 
Global Const vbPRPSLedger = 4 ' Ledger, 17 x 11 in 
Global Const vbPRPSLegal = 5 ' Legal, 8 1/2 x 14 in 
Global Const vbPRPSStatement = 6 ' Statement, 5 1/2 x 8 1/2 in 
Global Const vbPRPSExecutive = 7 ' Executive, 7 1/2 x 10 1/2 in 
Global Const vbPRPSA3 = 8 ' A3, 297 x 420 mm 
Global Const vbPRPSA4 = 9 ' A4, 210 x 297 mm 
Global Const vbPRPSA4Small = 10 ' A4 Small, 210 x 297 mm 
Global Const vbPRPSA5 = 11 ' A5, 148 x 210 mm 
Global Const vbPRPSB4 = 12 ' B4, 250 x 354 mm 
Global Const vbPRPSB5 = 13 ' B5, 182 x 257 mm 
Global Const vbPRPSFolio = 14 ' Folio, 8 1/2 x 13 in 
Global Const vbPRPSQuarto = 15 ' Quarto, 215 x 275 mm 
Global Const vbPRPS10x14 = 16 ' 10 x 14 in 
Global Const vbPRPS11x17 = 17 ' 11 x 17 in 
Global Const vbPRPSNote = 18 ' Note, 8 1/2 x 11 in 
Global Const vbPRPSEnv9 = 19 ' Envelope #9, 3 7/8 x 8 7/8 in 
Global Const vbPRPSEnv10 = 20 ' Envelope #10, 4 1/8 x 9 1/2 in 
Global Const vbPRPSEnv11 = 21 ' Envelope #11, 4 1/2 x 10 3/8 in 
Global Const vbPRPSEnv12 = 22 ' Envelope #12, 4 1/2 x 11 in 
Global Const vbPRPSEnv14 = 23 ' Envelope #14, 5 x 11 1/2 in 
Global Const vbPRPSCSheet = 24 ' C size sheet 
Global Const vbPRPSDSheet = 25 ' D size sheet 
Global Const vbPRPSESheet = 26 ' E size sheet 
Global Const vbPRPSEnvDL = 27 ' Envelope DL, 110 x 220 mm 
Global Const vbPRPSEnvC3 = 29 ' Envelope C3, 324 x 458 mm 
Global Const vbPRPSEnvC4 = 30 ' Envelope C4, 229 x 324 mm 
Global Const vbPRPSEnvC5 = 28 ' Envelope C5, 162 x 229 mm 
Global Const vbPRPSEnvC6 = 31 ' Envelope C6, 114 x 162 mm 
Global Const vbPRPSEnvC65 = 32 ' Envelope C65, 114 x 229 mm 
Global Const vbPRPSEnvB4 = 33 ' Envelope B4, 250 x 353 mm 
Global Const vbPRPSEnvB5 = 34 ' Envelope B5, 176 x 250 mm 
Global Const vbPRPSEnvB6 = 35 ' Envelope B6, 176 x 125 mm 
Global Const vbPRPSEnvItaly = 36 ' Envelope, 110 x 230 mm 
Global Const vbPRPSEnvMonarch = 37 ' Envelope Monarch, 3 7/8 x 7 1/2 in 
Global Const vbPRPSEnvPersonal = 38 ' Envelope, 3 5/8 x 6 1/2 in 
Global Const vbPRPSFanfoldUS = 39 ' U.S. Standard Fanfold, 14 7/8 x 11 in 
Global Const vbPRPSFanfoldStdGerman = 40 ' German Standard Fanfold, 8 1/2 x 12 in 
Global Const vbPRPSFanfoldLglGerman = 41 ' German Legal Fanfold, 8 1/2 x 13 in 
Global Const vbPRPSUser = 256 ' User-defined 
' StdPicture Object Constants
Global Const vbPicTypeNone = 0 ' None (empty) 
Global Const vbPicTypeBitmap = 1 ' Bitmap type of StdPicture object 
Global Const vbPicTypeMetafile = 2 ' Metafile type of StdPicture object 
Global Const vbPicTypeIcon = 3 ' Icon type of StdPicture object 
Global Const vbPicTypeEMetaFile = 4 ' Enhanced metafile type of StdPicture object 

						