Liren Large Software Subsidy 7/07.iso/d/d009_2/1.ddi/SAMPLES/WINAPI/WINUSER.IN$/WINUSER.bin

Text File | 1992-02-03 | 60.2 KB | 1,669 lines

'******************************** WINUSER.INC *********************************
'Demonstrates: Sample Declare, Const, and Type structures for calling the
'              Windows 'User' API routines.
'
'Required Files: None
'
'Uses:
'
'Complexity Level: ADVANCED (Windows programming experience required)
'
'Notes: This include file correspond to the 'User' section of the Windows SDK
'       'windows.h' C header file.  This include files is provided for those
'       who wish to call Windows API routines from MSTest.  Since this is a
'       large Include file, you may wish to extract only the statements
'       necessary for your particular API call(s).
'
'       NOTE: Some Windows.h struct field names have been changed to avoid
'       conflicts with MSTest reserved words.  These changes are:
'
'       RECT                - left and right are defined as wleft and wright
'       MSG and EVENTMSG    - time is defined as dwtime
'
'******************************************************************************

'$IFNDEF WinAPI_GENDefs
    '$DEFINE WinAPI_GENDefs
    '   General Purpose Defines

    '  Conditional statement to avoid conflict with FASTTEST's WNAPIDEC.INC
    '$IFNDEF WNAPIDEC
        Type RECT
            wleft As Integer
            top As Integer
            wright As Integer
            bottom As Integer
        End Type
    '$ENDIF

    Type POINT
        x As Integer
        y As Integer
    End Type

'$ENDIF


'  Conditional statements to avoid conflict with FASTTEST's WNAPIDEC.INC
'$IFNDEF WNAPIDEC
    '$IFNDEF WINAPI_FIRST
        '$DEFINE WINAPI_FIRST
    '$ENDIF
    '$DEFINE WNAPIDEC
'$ENDIF

'$IFDEF WINAPI_FIRST

    Declare Sub GetClientRect Lib "User" ( hWnd%, lpRect As RECT)
    Declare Sub GetWindowRect Lib "User" ( hWnd%, lpRect As RECT)

    Declare Function SetFocus Lib "User" ( hWnd%) As Integer
    Declare Function GetFocus Lib "User" () As Integer

    Declare Function SendMessage Lib "User" ( hWnd%,  wMsg%,  wParam%, lParam As Any) As Long

    Declare Function IsZoomed Lib "User" ( hWnd%) As Integer

    Declare Function FindWindow Lib "User" (lpClassName As Any, lpWindowName As Any) As Integer
    Declare Function SetActiveWindow Lib "User" ( hWnd%) As Integer
    Declare Function GetActiveWindow Lib "User" () As Integer
    Declare Function GetWindowText Lib "User" ( hWnd%,  lpString$,  nMaxCount%) As Integer
    Declare Function GetDesktopWindow Lib "User" () As Integer

    Declare Function ShowWindow Lib "User" ( hWnd%,  nCmdShow%) As Integer

    '  ShowWindow() Commands
    Const SW_HIDE = 0
    Const SW_SHOWNORMAL = 1
    Const SW_NORMAL = 1
    Const SW_SHOWMINIMIZED = 2
    Const SW_SHOWMAXIMIZED = 3
    Const SW_MAXIMIZE = 3
    Const SW_SHOWNOACTIVATE = 4
    Const SW_SHOW = 5
    Const SW_MINIMIZE = 6
    Const SW_SHOWMINNOACTIVE = 7
    Const SW_SHOWNA = 8
    Const SW_RESTORE = 9

    '  Window Styles
    Const WS_MINIMIZE = &H20000000
    Const WS_MAXIMIZE = &H1000000

    Declare Function GetWindowLong Lib "User" ( hWnd%,  nIndex%) As Long

    '  Window field offsets for GetWindowLong()
    Const GWL_WNDPROC = (-4)
    Const GWL_STYLE = (-16)
    Const GWL_EXSTYLE = (-20)

'$ENDIF


' --------------------------------------------------------------------------
'   USER Section
' --------------------------------------------------------------------------
'$IFNDEF WinUser
    '$DEFINE WinUser

    Declare Function wvsprintf Lib "User" ( lpOutput$,  lpFormat$, lpArglist As Any) As Integer

    '  Scroll Bar Constants
    Const SB_HORZ = 0
    Const SB_VERT = 1
    Const SB_CTL = 2
    Const SB_BOTH = 3

    '  Scroll Bar Commands
    Const SB_LINEUP = 0
    Const SB_LINEDOWN = 1
    Const SB_PAGEUP = 2
    Const SB_PAGEDOWN = 3
    Const SB_THUMBPOSITION = 4
    Const SB_THUMBTRACK = 5
    Const SB_TOP = 6
    Const SB_BOTTOM = 7
    Const SB_ENDSCROLL = 8

    '  Old ShowWindow() Commands
    Const HIDE_WINDOW = 0
    Const SHOW_OPENWINDOW = 1
    Const SHOW_ICONWINDOW = 2
    Const SHOW_FULLSCREEN = 3
    Const SHOW_OPENNOACTIVATE = 4

    '  Identifiers for the WM_SHOWWINDOW message
    Const SW_PARENTCLOSING = 1
    Const SW_OTHERZOOM = 2
    Const SW_PARENTOPENING = 3
    Const SW_OTHERUNZOOM = 4

    '  Region Flags
    Const ERRORAPI = 0
    Const NULLREGION = 1
    Const SIMPLEREGION = 2
    Const COMPLEXREGION = 3

    '  CombineRgn() Styles
    Const RGN_AND = 1
    Const RGN_OR = 2
    Const RGN_XOR = 3
    Const RGN_DIFF = 4
    Const RGN_COPY = 5

    '  Virtual Keys, Standard Set
    '  Conditional check to avoid duplicate definition in MSTEST.INC
    '$IFNDEF VK_WINAPI
        '$DEFINE VK_WINAPI
        Const VK_LBUTTON = &H1
        Const VK_RBUTTON = &H2
        Const VK_MBUTTON = &H4  '  NOT contiguous with L & RBUTTON
    '$ENDIF
    Const VK_CANCEL = &H3
    Const VK_BACK = &H8
    Const VK_TAB = &H9
    Const VK_CLEAR = &HC
    Const VK_RETURN = &HD
    Const VK_SHIFT = &H10
    Const VK_CONTROL = &H11
    Const VK_MENU = &H12
    Const VK_PAUSE = &H13
    Const VK_CAPITAL = &H14
    Const VK_ESCAPE = &H1B
    Const VK_SPACE = &H20
    Const VK_PRIOR = &H21
    Const VK_NEXT = &H22
    Const VK_END = &H23
    Const VK_HOME = &H24
    Const VK_LEFT = &H25
    Const VK_UP = &H26
    Const VK_RIGHT = &H27
    Const VK_DOWN = &H28
    Const VK_SELECT = &H29
    Const VK_PRINT = &H2A
    Const VK_EXECUTE = &H2B
    Const VK_SNAPSHOT = &H2C
    'Const VK_COPY = &H2C   not used by keyboards.
    Const VK_INSERT = &H2D
    Const VK_DELETE = &H2E
    Const VK_HELP = &H2F

    '  VK_A thru VK_Z are the same as their ASCII equivalents: 'A' thru 'Z'
    '  VK_0 thru VK_9 are the same as their ASCII equivalents: '0' thru '9'

    Const VK_NUMPAD0 = &H60
    Const VK_NUMPAD1 = &H61
    Const VK_NUMPAD2 = &H62
    Const VK_NUMPAD3 = &H63
    Const VK_NUMPAD4 = &H64
    Const VK_NUMPAD5 = &H65
    Const VK_NUMPAD6 = &H66
    Const VK_NUMPAD7 = &H67
    Const VK_NUMPAD8 = &H68
    Const VK_NUMPAD9 = &H69
    Const VK_MULTIPLY = &H6A
    Const VK_ADD = &H6B
    Const VK_SEPARATOR = &H6C
    Const VK_SUBTRACT = &H6D
    Const VK_DECIMAL = &H6E
    Const VK_DIVIDE = &H6F
    Const VK_F1 = &H70
    Const VK_F2 = &H71
    Const VK_F3 = &H72
    Const VK_F4 = &H73
    Const VK_F5 = &H74
    Const VK_F6 = &H75
    Const VK_F7 = &H76
    Const VK_F8 = &H77
    Const VK_F9 = &H78
    Const VK_F10 = &H79
    Const VK_F11 = &H7A
    Const VK_F12 = &H7B
    Const VK_F13 = &H7C
    Const VK_F14 = &H7D
    Const VK_F15 = &H7E
    Const VK_F16 = &H7F

    Const VK_NUMLOCK = &H90

    '  SetWindowsHook() codes
    Const WH_MSGFILTER = (-1)
    Const WH_JOURNALRECORD = 0
    Const WH_JOURNALPLAYBACK = 1
    Const WH_KEYBOARD = 2
    Const WH_GETMESSAGE = 3
    Const WH_CALLWNDPROC = 4
    Const WH_CBT = 5
    Const WH_SYSMSGFILTER = 6
    Const WH_WINDOWMGR = 7

    '  Hook Codes
    Const HC_LPLPFNNEXT = (-2)
    Const HC_LPFNNEXT = (-1)
    Const HC_ACTION = 0
    Const HC_GETNEXT = 1
    Const HC_SKIP = 2
    Const HC_NOREM = 3
    Const HC_NOREMOVE = 3
    Const HC_SYSMODALON = 4
    Const HC_SYSMODALOFF = 5

    '  CBT Hook Codes
    Const HCBT_MOVESIZE = 0
    Const HCBT_MINMAX = 1
    Const HCBT_QS = 2

    '  WH_MSGFILTER Filter Proc Codes
    Const MSGF_DIALOGBOX = 0
    Const MSGF_MESSAGEBOX = 1
    Const MSGF_MENU = 2
    Const MSGF_MOVE = 3
    Const MSGF_SIZE = 4
    Const MSGF_SCROLLBAR = 5
    Const MSGF_NEXTWINDOW = 6

    '  Window Manager Hook Codes
    Const WC_INIT = 1
    Const WC_SWP = 2
    Const WC_DEFWINDOWPROC = 3
    Const WC_MINMAX = 4
    Const WC_MOVE = 5
    Const WC_SIZE = 6
    Const WC_DRAWCAPTION = 7

    '  Message Structure used in Journaling
    Type EVENTMSG
        message As Integer
        paramL As Integer
        paramH As Integer
        dwtime As Long          'time is a reserved word in MSTest
    End Type

    '  Message structure
    Type MSG
        hwnd As Integer
        message As Integer
        wParam As Integer
        lParam As Long
        dwtime As Long          'time is a reserved word in MSTest
        pt As POINT
    End Type


    '  Window field offsets for GetWindowWord()
    Const GWW_HINSTANCE = (-6)
    Const GWW_HWNDPARENT = (-8)
    Const GWW_ID = (-12)

    '  Class field offsets for GetClassLong() and GetClassWord()
    Const GCL_MENUNAME = (-8)
    Const GCW_HBRBACKGROUND = (-10)
    Const GCW_HCURSOR = (-12)
    Const GCW_HICON = (-14)
    Const GCW_HMODULE = (-16)
    Const GCW_CBWNDEXTRA = (-18)
    Const GCW_CBCLSEXTRA = (-20)
    Const GCL_WNDPROC = (-24)
    Const GCW_STYLE = (-26)

    '  Window Messages
    Const WM_NULL = &H0
    Const WM_CREATE = &H1
    Const WM_DESTROY = &H2
    Const WM_MOVE = &H3
    Const WM_SIZE = &H5
    Const WM_ACTIVATE = &H6
    Const WM_SETFOCUS = &H7
    Const WM_KILLFOCUS = &H8
    Const WM_ENABLE = &HA
    Const WM_SETREDRAW = &HB
    Const WM_SETTEXT = &HC
    Const WM_GETTEXT = &HD
    Const WM_GETTEXTLENGTH = &HE
    Const WM_PAINT = &HF
    Const WM_CLOSE = &H10
    Const WM_QUERYENDSESSION = &H11
    Const WM_QUIT = &H12
    Const WM_QUERYOPEN = &H13
    Const WM_ERASEBKGND = &H14
    Const WM_SYSCOLORCHANGE = &H15
    Const WM_ENDSESSION = &H16
    Const WM_SHOWWINDOW = &H18
    Const WM_CTLCOLOR = &H19
    Const WM_WININICHANGE = &H1A
    Const WM_DEVMODECHANGE = &H1B
    Const WM_ACTIVATEAPP = &H1C
    Const WM_FONTCHANGE = &H1D
    Const WM_TIMECHANGE = &H1E
    Const WM_CANCELMODE = &H1F
    Const WM_SETCURSOR = &H20
    Const WM_MOUSEACTIVATE = &H21
    Const WM_CHILDACTIVATE = &H22
    Const WM_QUEUESYNC = &H23
    Const WM_GETMINMAXINFO = &H24
    Const WM_PAINTICON = &H26
    Const WM_ICONERASEBKGND = &H27
    Const WM_NEXTDLGCTL = &H28
    Const WM_SPOOLERSTATUS = &H2A
    Const WM_DRAWITEM = &H2B
    Const WM_MEASUREITEM = &H2C
    Const WM_DELETEITEM = &H2D
    Const WM_VKEYTOITEM = &H2E
    Const WM_CHARTOITEM = &H2F
    Const WM_SETFONT = &H30
    Const WM_GETFONT = &H31

    Const WM_QUERYDRAGICON = &H37

    Const WM_COMPAREITEM = &H39
    Const WM_COMPACTING = &H41

    Const WM_NCCREATE = &H81
    Const WM_NCDESTROY = &H82
    Const WM_NCCALCSIZE = &H83
    Const WM_NCHITTEST = &H84
    Const WM_NCPAINT = &H85
    Const WM_NCACTIVATE = &H86
    Const WM_GETDLGCODE = &H87
    Const WM_NCMOUSEMOVE = &HA0
    Const WM_NCLBUTTONDOWN = &HA1
    Const WM_NCLBUTTONUP = &HA2
    Const WM_NCLBUTTONDBLCLK = &HA3
    Const WM_NCRBUTTONDOWN = &HA4
    Const WM_NCRBUTTONUP = &HA5
    Const WM_NCRBUTTONDBLCLK = &HA6
    Const WM_NCMBUTTONDOWN = &HA7
    Const WM_NCMBUTTONUP = &HA8
    Const WM_NCMBUTTONDBLCLK = &HA9

    Const WM_KEYFIRST = &H100
    Const WM_KEYDOWN = &H100
    Const WM_KEYUP = &H101
    Const WM_CHAR = &H102
    Const WM_DEADCHAR = &H103
    Const WM_SYSKEYDOWN = &H104
    Const WM_SYSKEYUP = &H105
    Const WM_SYSCHAR = &H106
    Const WM_SYSDEADCHAR = &H107
    Const WM_KEYLAST = &H108

    Const WM_INITDIALOG = &H110
    Const WM_COMMAND = &H111
    Const WM_SYSCOMMAND = &H112
    Const WM_TIMER = &H113
    Const WM_HSCROLL = &H114
    Const WM_VSCROLL = &H115
    Const WM_INITMENU = &H116
    Const WM_INITMENUPOPUP = &H117
    Const WM_MENUSELECT = &H11F
    Const WM_MENUCHAR = &H120
    Const WM_ENTERIDLE = &H121

    Const WM_MOUSEFIRST = &H200
    Const WM_MOUSEMOVE = &H200
    Const WM_LBUTTONDOWN = &H201
    Const WM_LBUTTONUP = &H202
    Const WM_LBUTTONDBLCLK = &H203
    Const WM_RBUTTONDOWN = &H204
    Const WM_RBUTTONUP = &H205
    Const WM_RBUTTONDBLCLK = &H206
    Const WM_MBUTTONDOWN = &H207
    Const WM_MBUTTONUP = &H208
    Const WM_MBUTTONDBLCLK = &H209
    Const WM_MOUSELAST = &H209

    Const WM_PARENTNOTIFY = &H210
    Const WM_MDICREATE = &H220
    Const WM_MDIDESTROY = &H221
    Const WM_MDIACTIVATE = &H222
    Const WM_MDIRESTORE = &H223
    Const WM_MDINEXT = &H224
    Const WM_MDIMAXIMIZE = &H225
    Const WM_MDITILE = &H226
    Const WM_MDICASCADE = &H227
    Const WM_MDIICONARRANGE = &H228
    Const WM_MDIGETACTIVE = &H229
    Const WM_MDISETMENU = &H230

    Const WM_CUT = &H300
    Const WM_COPY = &H301
    Const WM_PASTE = &H302
    Const WM_CLEAR = &H303
    Const WM_UNDO = &H304
    Const WM_RENDERFORMAT = &H305
    Const WM_RENDERALLFORMATS = &H306
    Const WM_DESTROYCLIPBOARD = &H307
    Const WM_DRAWCLIPBOARD = &H308
    Const WM_PAINTCLIPBOARD = &H309
    Const WM_VSCROLLCLIPBOARD = &H30A
    Const WM_SIZECLIPBOARD = &H30B
    Const WM_ASKCBFORMATNAME = &H30C
    Const WM_CHANGECBCHAIN = &H30D
    Const WM_HSCROLLCLIPBOARD = &H30E
    Const WM_QUERYNEWPALETTE = &H30F
    Const WM_PALETTEISCHANGING = &H310
    Const WM_PALETTECHANGED = &H311

    '  NOTE: All Message Numbers below 0x0400 are RESERVED.

    '  Private Window Messages Start Here:
    '$IFNDEF WinUser-WinCmDlg_DECL
        '$DEFINE WinUser-WinCmDlg_DECL
        Const WM_USER = &H400
    '$ENDIF

    '  WM_SYNCTASK Commands
    Const ST_BEGINSWP = 0
    Const ST_ENDSWP = 1

    '  WinWhere() Area Codes
    Const HTERROR = (-2)
    Const HTTRANSPARENT = (-1)
    Const HTNOWHERE = 0
    Const HTCLIENT = 1
    Const HTCAPTION = 2
    Const HTSYSMENU = 3
    Const HTGROWBOX = 4
    Const HTSIZE = HTGROWBOX
    Const HTMENU = 5
    Const HTHSCROLL = 6
    Const HTVSCROLL = 7
    Const HTREDUCE = 8
    Const HTZOOM = 9
    Const HTLEFT = 10
    Const HTRIGHT = 11
    Const HTTOP = 12
    Const HTTOPLEFT = 13
    Const HTTOPRIGHT = 14
    Const HTBOTTOM = 15
    Const HTBOTTOMLEFT = 16
    Const HTBOTTOMRIGHT = 17
    Const HTSIZEFIRST = HTLEFT
    Const HTSIZELAST = HTBOTTOMRIGHT

    '  WM_MOUSEACTIVATE Return Codes
    Const MA_ACTIVATE = 1
    Const MA_ACTIVATEANDEAT = 2
    Const MA_NOACTIVATE = 3

    Declare Function RegisterWindowMessage Lib "User" (lpString$) As Integer

    '  Size Message Commands
    Const SIZENORMAL = 0
    Const SIZEICONIC = 1
    Const SIZEFULLSCREEN = 2
    Const SIZEZOOMSHOW = 3
    Const SIZEZOOMHIDE = 4

    '  Key State Masks for Mouse Messages
    Const MK_LBUTTON = &H1
    Const MK_RBUTTON = &H2
    Const MK_SHIFT = &H4
    Const MK_CONTROL = &H8
    Const MK_MBUTTON = &H10

    '  Window Styles
    Const WS_OVERLAPPED = &H00000
    Const WS_POPUP = &H80000000
    Const WS_CHILD = &H40000000
    Const WS_VISIBLE = &H10000000
    Const WS_DISABLED = &H8000000
    Const WS_CLIPSIBLINGS = &H4000000
    Const WS_CLIPCHILDREN = &H2000000
    Const WS_CAPTION = &HC00000    '  WS_BORDER Or WS_DLGFRAME
    Const WS_BORDER = &H800000
    Const WS_DLGFRAME = &H400000
    Const WS_VSCROLL = &H200000
    Const WS_HSCROLL = &H100000
    Const WS_SYSMENU = &H80000
    Const WS_THICKFRAME = &H40000
    Const WS_GROUP = &H20000
    Const WS_TABSTOP = &H10000

    Const WS_MINIMIZEBOX = &H20000
    Const WS_MAXIMIZEBOX = &H10000

    Const WS_TILED = WS_OVERLAPPED
    Const WS_ICONIC = WS_MINIMIZE
    Const WS_SIZEBOX = WS_THICKFRAME

    '  Common Window Styles
    Const WS_OVERLAPPEDWINDOW = (WS_OVERLAPPED Or WS_CAPTION Or WS_SYSMENU Or WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX)
    Const WS_POPUPWINDOW = (WS_POPUP Or WS_BORDER Or WS_SYSMENU)
    Const WS_CHILDWINDOW = (WS_CHILD)
    Const WS_TILEDWINDOW = (WS_OVERLAPPEDWINDOW)

    '  Extended Window Styles
    Const WS_EX_DLGMODALFRAME = &H00001
    Const WS_EX_NOPARENTNOTIFY = &H00004

    '  Class styles
    Const CS_VREDRAW = &H1
    Const CS_HREDRAW = &H2
    Const CS_KEYCVTWINDOW = &H4
    Const CS_DBLCLKS = &H8
    Const CS_OWNDC = &H20
    Const CS_CLASSDC = &H40
    Const CS_PARENTDC = &H80
    Const CS_NOKEYCVT = &H100
    Const CS_NOCLOSE = &H200
    Const CS_SAVEBITS = &H800
    Const CS_BYTEALIGNCLIENT = &H1000
    Const CS_BYTEALIGNWINDOW = &H2000
    Const CS_GLOBALCLASS = &H4000   '  Global window class

    '  Predefined Clipboard Formats
    Const CF_TEXT = 1
    Const CF_BITMAP = 2
    Const CF_METAFILEPICT = 3
    Const CF_SYLK = 4
    Const CF_DIF = 5
    Const CF_TIFF = 6
    Const CF_OEMTEXT = 7
    Const CF_DIB = 8
    Const CF_PALETTE = 9

    Const CF_OWNERDISPLAY = &H80
    Const CF_DSPTEXT = &H81
    Const CF_DSPBITMAP = &H82
    Const CF_DSPMETAFILEPICT = &H83

    '  "Private" formats don't get GlobalFree()'d
    Const CF_PRIVATEFIRST = &H200
    Const CF_PRIVATELAST = &H2FF

    '  "GDIOBJ" formats do get DeleteObject()'d
    Const CF_GDIOBJFIRST = &H300
    Const CF_GDIOBJLAST = &H3FF

    Type PAINTSTRUCT
        hdc As Integer
        fErase As Integer
        rcPaint As RECT
        fRestore As Integer
        fIncUpdate As Integer
        rgbReserved As String * 16
    End Type

    Type CREATESTRUCT
        lpCreateParams As Long
        hInstance As Integer
        hMenu As Integer
        hwndParent As Integer
        cy As Integer
        cx As Integer
        y As Integer
        x As Integer
        style As Long
        lpszName As Long        'lpsz Actually LPSTR -
        lpszClass As Long       'change to POINTER TO STRING * n or use lstrcpy
        ExStyle As Long
    End Type

    '  Owner draw control types
    Const ODT_MENU = 1
    Const ODT_LISTBOX = 2
    Const ODT_COMBOBOX = 3
    Const ODT_BUTTON = 4

    '  Owner draw actions
    Const ODA_DRAWENTIRE = &H1
    Const ODA_SELECT = &H2
    Const ODA_FOCUS = &H4

    '  Owner draw state
    Const ODS_SELECTED = &H1
    Const ODS_GRAYED = &H2
    Const ODS_DISABLED = &H4
    Const ODS_CHECKED = &H8
    Const ODS_FOCUS = &H10

    '  MEASUREITEMSTRUCT for ownerdraw
    Type MEASUREITEMSTRUCT
        CtlType As Integer
        CtlID As Integer
        itemID As Integer
        itemWidth As Integer
        itemHeight As Integer
        itemData As Long
    End Type

    '  DRAWITEMSTRUCT for ownerdraw
    Type DRAWITEMSTRUCT
        CtlType As Integer
        CtlID As Integer
        itemID As Integer
        itemAction As Integer
        itemState As Integer
        hwndItem As Integer
        hDC As Integer
        rcItem As RECT
        itemData As Long
    End Type

    '  DELETEITEMSTRUCT for ownerdraw
    Type DELETEITEMSTRUCT
        CtlType As Integer
        CtlID As Integer
        itemID As Integer
        hwndItem As Integer
        itemData As Long
    End Type

    '  COMPAREITEMSTRUCT for ownerdraw sorting
    Type COMPAREITEMSTRUCT
        CtlType As Integer
        CtlID As Integer
        hwndItem As Integer
        itemID1 As Integer
        itemData1 As Long
        itemID2 As Integer
        itemData2 As Long
    End Type

    '  Message Function Templates
    Declare Function GetMessage Lib "User" (lpMsg As MSG,  hWnd%,  wMsgFilterMin%,  wMsgFilterMax%) As Integer
    Declare Function TranslateMessage Lib "User" (lpMsg As MSG) As Integer
    Declare Function DispatchMessage Lib "User" (lpMsg As MSG) As Long
    Declare Function PeekMessage Lib "User" (lpMsg As MSG,  hWnd%,  wMsgFilterMin%,  wMsgFilterMax%,  wRemoveMsg%) As Integer

    '  PeekMessage() Options
    Const PM_NOREMOVE = &H0
    Const PM_REMOVE = &H1
    Const PM_NOYIELD = &H2

    Declare Function lstrcmp Lib "User" ( lpString1 As Any,  lpString2 As Any) As Integer
    Declare Function lstrcmpi Lib "User" ( lpString1 As Any,  lpString2 As Any) As Integer
    Declare Function lstrcpy Lib "Kernel" ( lpString1 As Any,  lpString2 As Any) As Long
    Declare Function lstrcat Lib "Kernel" ( lpString1 As Any,  lpString2 As Any) As Long
    Declare Function lstrlen Lib "Kernel" ( lpString As Any) As Integer

    Declare Function _lopen Lib "Kernel" ( lpPathName$,  iReadWrite%) As Integer
    Declare Function _lclose Lib "Kernel" ( hFile%) As Integer
    Declare Function _lcreat Lib "Kernel" ( lpPathName$,  iAttribute%) As Integer
    Declare Function _llseek Lib "Kernel" ( hFile%,  lOffset&,  iOrigin%) As Long
    Declare Function _lread Lib "Kernel" ( hFile%,  lpBuffer$,  wBytes%) As Integer
    Declare Function _lwrite Lib "Kernel" ( hFile%,  lpBuffer$,  wBytes%) As Integer

    Const READAPI = 0   '  Flags for _lopen
    Const WRITEAPI = 1
    Const READ_WRITE = 2

    Declare Function ExitWindows Lib "User" ( dwReserved&, wReturnCode%) As Integer

    Declare Function SwapMouseButton Lib "User" ( bSwap%) As Integer
    Declare Function GetMessagePos Lib "User" () As Long
    Declare Function GetMessageTime Lib "User" () As Long

    Declare Function GetSysModalWindow Lib "User" () As Integer
    Declare Function SetSysModalWindow Lib "User" ( hWnd%) As Integer

    Declare Function PostMessage Lib "User" ( hWnd%,  wMsg%,  wParam%, lParam As Any) As Integer
    Declare Function PostAppMessage Lib "User" ( hTask%,  wMsg%,  wParam%, lParam As Any) As Integer
    Declare Sub ReplyMessage Lib "User" ( lReply&)
    Declare Sub WaitMessage Lib "User" ()
    Declare Function DefWindowProc Lib "User" ( hWnd%,  wMsg%,  wParam%, lParam As Any) As Long
    Declare Sub PostQuitMessage Lib "User" ( nExitCode%)
    Declare Function InSendMessage Lib "User" () As Integer

    Declare Function GetDoubleClickTime Lib "User" () As Integer
    Declare Sub SetDoubleClickTime Lib "User" ( wCount%)

    Declare Function UnregisterClass Lib "User" ( lpClassName$,  hInstance%) As Integer

    Declare Function SetMessageQueue Lib "User" ( cMsg%) As Integer

    Const CW_USEDEFAULT = &H8000

    Declare Function CreateWindow% Lib "User" ( lpClassName$,  lpWindowName$,  dwStyle&,  X%,  Y%,  nWidth%,  nHeight%,  hWndParent%,  hMenu%,  hInstance%,  lpParam$)
    Declare Function CreateWindowEx% Lib "User" ( dwExStyle&,  lpClassName$,  lpWindowName$,  dwStyle&,  X%,  Y%,  nWidth%,  nHeight%,  hWndParent%,  hMenu%,  hInstance%,  lpParam$)
    Declare Function IsWindow Lib "User" ( hWnd%) As Integer
    Declare Function IsChild Lib "User" ( hWndParent%,  hWnd%) As Integer
    Declare Function DestroyWindow Lib "User" ( hWnd%) As Integer

    Declare Function FlashWindow Lib "User" ( hWnd%,  bInvert%) As Integer
    Declare Sub ShowOwnedPopups Lib "User" ( hWnd%,  fShow%)

    Declare Function OpenIcon Lib "User" ( hWnd%) As Integer
    Declare Sub CloseWindow Lib "User" ( hWnd%)
    Declare Sub MoveWindow Lib "User" ( hWnd%,  X%,  Y%,  nWidth%,  nHeight%,  bRepaint%)
    Declare Sub SetWindowPos Lib "User" ( hWnd%,  hWndInsertAfter%,  X%,  Y%,  cx%,  cy%,  wFlags%)

    Declare Function BeginDeferWindowPos Lib "User" ( nNumWindows%) As Integer
    Declare Function DeferWindowPos Lib "User" ( hWinPosInfo%,  hWnd%,  hWndInsertAfter%,  x%,  y%,  cx%,  cy%,  wFlags%) As Integer
    Declare Sub EndDeferWindowPos Lib "User" ( hWinPosInfo%)

    Declare Function IsWindowVisible Lib "User" ( hWnd%) As Integer
    Declare Function IsIconic Lib "User" ( hWnd%) As Integer
    Declare Function AnyPopup Lib "User" () As Integer
    Declare Sub BringWindowToTop Lib "User" ( hWnd%)

    '  SetWindowPos Flags
    Const SWP_NOSIZE = &H1
    Const SWP_NOMOVE = &H2
    Const SWP_NOZORDER = &H4
    Const SWP_NOREDRAW = &H8
    Const SWP_NOACTIVATE = &H10
    Const SWP_DRAWFRAME = &H20
    Const SWP_SHOWWINDOW = &H40
    Const SWP_HIDEWINDOW = &H80
    Const SWP_NOCOPYBITS = &H100
    Const SWP_NOREPOSITION = &H200

    Declare Sub EndDialog Lib "User" ( hDlg%,  nResult%)
    Declare Function GetDlgItem Lib "User" ( hDlg%,  nIDDlgItem%) As Integer
    Declare Sub SetDlgItemInt Lib "User" ( hDlg%,  nIDDlgItem%,  wValue%,  bSigned%)
    Declare Function GetDlgItemInt Lib "User" ( hDlg%,  nIDDlgItem%, lpTranslated As Any,  bSigned%) As Integer
    Declare Sub SetDlgItemText Lib "User" ( hDlg%,  nIDDlgItem%,  lpString$)
    Declare Function GetDlgItemText Lib "User" ( hDlg%,  nIDDlgItem%,  lpString$,  nMaxCount%) As Integer
    Declare Sub CheckDlgButton Lib "User" ( hDlg%,  nIDButton%,  wCheck%)
    Declare Sub CheckRadioButton Lib "User" ( hDlg%,  nIDFirstButton%,  nIDLastButton%,  nIDCheckButton%)
    Declare Function IsDlgButtonChecked Lib "User" ( hDlg%,  nIDButton%) As Integer
    Declare Function SendDlgItemMessage Lib "User" ( hDlg%,  nIDDlgItem%,  wMsg%,  wParam%, lParam As Any) As Long
    Declare Function GetNextDlgGroupItem Lib "User" ( hDlg%,  hCtl%,  bPrevious%) As Integer
    Declare Function GetNextDlgTabItem Lib "User" ( hDlg%,  hCtl%,  bPrevious%) As Integer
    Declare Function GetDlgCtrlID Lib "User" ( hWnd%) As Integer
    Declare Function GetDialogBaseUnits Lib "User" () As Long
    Declare Function DefDlgProc Lib "User" ( hDlg%,  wMsg%,  wParam%, lParam As Any) As Long

    Const DLGWINDOWEXTRA = 30   '  Window extra bytes needed for private dialog classes

    Declare Function CallMsgFilter Lib "User" (lpMsg As MSG,  nCode%) As Integer

    '  Clipboard Manager Functions
    Declare Function OpenClipboard Lib "User" ( hWnd%) As Integer
    Declare Function CloseClipboard Lib "User" () As Integer
    Declare Function GetClipboardOwner Lib "User" () As Integer
    Declare Function SetClipboardViewer Lib "User" ( hWnd%) As Integer
    Declare Function GetClipboardViewer Lib "User" () As Integer
    Declare Function ChangeClipboardChain Lib "User" ( hWnd%,  hWndNext%) As Integer
    Declare Function SetClipboardData Lib "User" ( wFormat%,  hMem%) As Integer
    Declare Function GetClipboardData Lib "User" ( wFormat%) As Integer
    Declare Function RegisterClipboardFormat Lib "User" ( lpFormatName$) As Integer
    Declare Function CountClipboardFormats Lib "User" () As Integer
    Declare Function EnumClipboardFormats Lib "User" ( wFormat%) As Integer
    Declare Function GetClipboardFormatName Lib "User" ( wFormat%,  lpFormatName$,  nMaxCount%) As Integer
    Declare Function EmptyClipboard Lib "User" () As Integer
    Declare Function IsClipboardFormatAvailable Lib "User" ( wFormat%) As Integer
    Declare Function GetPriorityClipboardFormat Lib "User" (lpPriorityList As Any,  nCount%) As Integer

    Declare Function GetKeyState Lib "User" ( nVirtKey%) As Integer
    Declare Function GetAsyncKeyState Lib "User" ( vKey%) As Integer
    Declare Sub GetKeyboardState Lib "User" (LpKeyState As Any)
    Declare Sub SetKeyboardState Lib "User" (lpKeyState As Any)
    Declare Function EnableHardwareInput Lib "User" ( bEnableInput%) As Integer
    Declare Function GetInputState Lib "User" () As Integer
    Declare Function GetCapture Lib "User" () As Integer
    Declare Function SetCapture Lib "User" ( hWnd%) As Integer
    Declare Sub ReleaseCapture Lib "User" ()

    '  Windows Functions
    Declare Function KillTimer Lib "User" ( hWnd%,  nIDEvent%) As Integer

    Declare Function EnableWindow Lib "User" ( hWnd%,  bEnable%) As Integer
    Declare Function IsWindowEnabled Lib "User" ( hWnd%) As Integer

    Declare Function LoadAccelerators Lib "User" ( hInstance%,  lpTableName$) As Integer

    Declare Function TranslateAccelerator Lib "User" ( hWnd%,  hAccTable%, lpMsg As MSG) As Integer


    '  GetSystemMetrics() codes
    Const SM_CXSCREEN = 0
    Const SM_CYSCREEN = 1
    Const SM_CXVSCROLL = 2
    Const SM_CYHSCROLL = 3
    Const SM_CYCAPTION = 4
    Const SM_CXBORDER = 5
    Const SM_CYBORDER = 6
    Const SM_CXDLGFRAME = 7
    Const SM_CYDLGFRAME = 8
    Const SM_CYVTHUMB = 9
    Const SM_CXHTHUMB = 10
    Const SM_CXICON = 11
    Const SM_CYICON = 12
    Const SM_CXCURSOR = 13
    Const SM_CYCURSOR = 14
    Const SM_CYMENU = 15
    Const SM_CXFULLSCREEN = 16
    Const SM_CYFULLSCREEN = 17
    Const SM_CYKANJIWINDOW = 18
    Const SM_MOUSEPRESENT = 19
    Const SM_CYVSCROLL = 20
    Const SM_CXHSCROLL = 21
    Const SM_DEBUG = 22
    Const SM_SWAPBUTTON = 23
    Const SM_RESERVED1 = 24
    Const SM_RESERVED2 = 25
    Const SM_RESERVED3 = 26
    Const SM_RESERVED4 = 27
    Const SM_CXMIN = 28
    Const SM_CYMIN = 29
    Const SM_CXSIZE = 30
    Const SM_CYSIZE = 31
    Const SM_CXFRAME = 32
    Const SM_CYFRAME = 33
    Const SM_CXMINTRACK = 34
    Const SM_CYMINTRACK = 35
    Const SM_CMETRICS = 36

    Declare Function GetSystemMetrics Lib "User" ( nIndex%) As Integer

    Type MENUITEMTEMPLATE
        mtOption As Integer
        mtID As Integer
        mtString As Long        'Actually LPSTR -
    End Type                    'Change to POINTER TO STRING * n or use lstrcpy

    Declare Function LoadMenu Lib "User" ( hInstance%,  lpMenuName$) As Integer
    Declare Function LoadMenuIndirect Lib "User" (lpMenuTemplate As Any) As Integer
    Declare Function GetMenu Lib "User" ( hWnd%) As Integer
    Declare Function SetMenu Lib "User" ( hWnd%,  hMenu%) As Integer
    Declare Function ChangeMenu Lib "User" ( hMenu%,  wID%,  lpszNew$,  wIDNew%,  wChange%) As Integer
    Declare Function HiliteMenuItem Lib "User" ( hWnd%,  hMenu%,  wIDHiliteItem%,  wHilite%) As Integer
    Declare Function GetMenuString Lib "User" ( hMenu%,  wIDItem%,  lpString$,  nMaxCount%,  wFlag%) As Integer
    Declare Function GetMenuState Lib "User" ( hMenu%,  wId%,  wFlags%) As Integer
    Declare Sub DrawMenuBar Lib "User" ( hWnd%)
    Declare Function GetSystemMenu Lib "User" ( hWnd%,  bRevert%) As Integer
    Declare Function CreateMenu Lib "User" () As Integer
    Declare Function CreatePopupMenu Lib "User" () As Integer
    Declare Function DestroyMenu Lib "User" ( hMenu%) As Integer
    Declare Function CheckMenuItem Lib "User" ( hMenu%,  wIDCheckItem%,  wCheck%) As Integer
    Declare Function EnableMenuItem Lib "User" ( hMenu%,  wIDEnableItem%,  wEnable%) As Integer
    Declare Function GetSubMenu Lib "User" ( hMenu%,  nPos%) As Integer
    Declare Function GetMenuItemID Lib "User" ( hMenu%,  nPos%) As Integer
    Declare Function GetMenuItemCount Lib "User" ( hMenu%) As Integer

    Declare Function InsertMenu Lib "User" ( hMenu%,  nPosition%,  wFlags%,  wIDNewItem%,  lpNewItem As Any) As Integer
    Declare Function AppendMenu Lib "User" ( hMenu%,  wFlags%,  wIDNewItem%,  lpNewItem As Any) As Integer
    Declare Function ModifyMenu Lib "User" ( hMenu%,  nPosition%,  wFlags%,  wIDNewItem%,  lpNewItem As Any) As Integer
    Declare Function RemoveMenu Lib "User" ( hMenu%,  nPosition%,  wFlags%) As Integer
    Declare Function DeleteMenu Lib "User" ( hMenu%,  nPosition%,  wFlags%) As Integer
    Declare Function SetMenuItemBitmaps Lib "User" ( hMenu%,  nPosition%,  wFlags%,  hBitmapUnchecked%,  hBitmapChecked%) As Integer
    Declare Function GetMenuCheckMarkDimensions Lib "User" () As Long
    Declare Function TrackPopupMenu Lib "User" ( hMenu%,  wFlags%,  x%,  y%,  nReserved%,  hWnd%, lpReserved As Any) As Integer

    Declare Sub UpdateWindow Lib "User" ( hWnd%)

    Declare Function BeginPaint Lib "User" ( hWnd%, lpPaint As PAINTSTRUCT) As Integer
    Declare Sub EndPaint Lib "User" ( hWnd%, lpPaint As PAINTSTRUCT)
    Declare Function GetUpdateRect Lib "User" ( hWnd%, lpRect As RECT,  bErase%) As Integer
    Declare Function GetUpdateRgn Lib "User" ( hWnd%,  hRgn%,  fErase%) As Integer

    Declare Function ExcludeUpdateRgn Lib "User" ( hDC%,  hWnd%) As Integer

    Declare Sub InvalidateRect Lib "User" ( hWnd%, lpRect As RECT,  bErase%)
    Declare Sub ValidateRect Lib "User" ( hWnd%, lpRect As RECT)

    Declare Sub InvalidateRgn Lib "User" ( hWnd%,  hRgn%,  bErase%)
    Declare Sub ValidateRgn Lib "User" ( hWnd%,  hRgn%)

    Declare Sub ScrollWindow Lib "User" ( hWnd%,  XAmount%,  YAmount%, lpRect As RECT, lpClipRect As RECT)
    Declare Function ScrollDC Lib "User" ( hDC%,  dx%,  dy%, lprcScroll As RECT, lprcClip As RECT,  hRgnUpdate%, lprcUpdate As RECT) As Integer

    Declare Function SetScrollPos Lib "User" ( hWnd%,  nBar%,  nPos%,  bRedraw%) As Integer
    Declare Function GetScrollPos Lib "User" ( hWnd%,  nBar%) As Integer
    Declare Sub SetScrollRange Lib "User" ( hWnd%,  nBar%,  nMinPos%,  nMaxPos%,  bRedraw%)
    Declare Sub GetScrollRange Lib "User" ( hWnd%,  nBar%, lpMinPos As Pointer To Integer, lpMaxPos As Pointer To Integer)
    Declare Sub ShowScrollBar Lib "User" ( hWnd%,  wBar%,  bShow%)

    Declare Function SetProp Lib "User" ( hWnd%,  lpString As Any,  hData%) As Integer
    Declare Function GetProp Lib "User" ( hWnd%,  lpString As Any) As Integer
    Declare Function RemoveProp Lib "User" ( hWnd%,  lpString As Any) As Integer
    Declare Sub SetWindowText Lib "User" ( hWnd%,  lpString$)
    Declare Function GetWindowTextLength Lib "User" ( hWnd%) As Integer

    Declare Sub AdjustWindowRect Lib "User" (lpRect As RECT,  dwStyle&,  bMenu%)
    Declare Sub AdjustWindowRectEx Lib "User" (lpRect As RECT,  dwStyle&,  bMenu%,  dwExStyle&)


    '  MessageBox() Flags
    Const MB_OK = &H0
    Const MB_OKCANCEL = &H1
    Const MB_ABORTRETRYIGNORE = &H2
    Const MB_YESNOCANCEL = &H3
    Const MB_YESNO = &H4
    Const MB_RETRYCANCEL = &H5

    Const MB_ICONHAND = &H10
    Const MB_ICONQUESTION = &H20
    Const MB_ICONEXCLAMATION = &H30
    Const MB_ICONASTERISK = &H40

    Const MB_ICONINFORMATION = MB_ICONASTERISK
    Const MB_ICONSTOP = MB_ICONHAND

    Const MB_DEFBUTTON1 = &H0
    Const MB_DEFBUTTON2 = &H100
    Const MB_DEFBUTTON3 = &H200

    Const MB_APPLMODAL = &H0
    Const MB_SYSTEMMODAL = &H1000
    Const MB_TASKMODAL = &H2000

    Const MB_NOFOCUS = &H8000

    Const MB_TYPEMASK = &HF
    Const MB_ICONMASK = &HF0
    Const MB_DEFMASK = &HF00
    Const MB_MODEMASK = &H3000
    Const MB_MISCMASK = &HC000

    Declare Function MessageBox Lib "User" ( hWndParent%,  lpText$,  lpCaption$,  wType%) As Integer
    Declare Sub MessageBeep Lib "User" ( wType%)

    Declare Function ShowCursor Lib "User" ( bShow%) As Integer
    Declare Sub SetCursorPos Lib "User" ( X%,  Y%)
    Declare Function SetCursor Lib "User" ( hCursor%) As Integer
    Declare Sub GetCursorPos Lib "User" (lpPoint As POINT)
    Declare Sub ClipCursor Lib "User" (lpRect As RECT)

    Declare Sub CreateCaret Lib "User" ( hWnd%,  hBitmap%,  nWidth%,  nHeight%)
    Declare Function GetCaretBlinkTime Lib "User" () As Integer
    Declare Sub SetCaretBlinkTime Lib "User" ( wMSeconds%)
    Declare Sub DestroyCaret Lib "User" ()
    Declare Sub HideCaret Lib "User" ( hWnd%)
    Declare Sub ShowCaret Lib "User" ( hWnd%)
    Declare Sub SetCaretPos Lib "User" ( X%,  Y%)
    Declare Sub GetCaretPos Lib "User" (lpPoint As POINT)

    Declare Sub ClientToScreen Lib "User" ( hWnd%, lpPoint As POINT)
    Declare Sub ScreenToClient Lib "User" ( hWnd%, lpPoint As POINT)

    '  WindowFromPoint and ChildWindowFromPoint expect a POINT structure
    '  passed by value - MSTest will not pass a TYPE structure by value
    '  so the two integer parameters listed below are a work around.
    Declare Function WindowFromPoint Lib "User" (y%,x%) As Integer
    Declare Function ChildWindowFromPoint Lib "User" ( hWnd%,  y%, x%) As Integer


    '  Color Types
    Const CTLCOLOR_MSGBOX = 0
    Const CTLCOLOR_EDIT = 1
    Const CTLCOLOR_LISTBOX = 2
    Const CTLCOLOR_BTN = 3
    Const CTLCOLOR_DLG = 4
    Const CTLCOLOR_SCROLLBAR = 5
    Const CTLCOLOR_STATIC = 6
    Const CTLCOLOR_MAX = 8  '  three bits max

    Const COLOR_SCROLLBAR = 0
    Const COLOR_BACKGROUND = 1
    Const COLOR_ACTIVECAPTION = 2
    Const COLOR_INACTIVECAPTION = 3
    Const COLOR_MENU = 4
    Const COLOR_WINDOW = 5
    Const COLOR_WINDOWFRAME = 6
    Const COLOR_MENUTEXT = 7
    Const COLOR_WINDOWTEXT = 8
    Const COLOR_CAPTIONTEXT = 9
    Const COLOR_ACTIVEBORDER = 10
    Const COLOR_INACTIVEBORDER = 11
    Const COLOR_APPWORKSPACE = 12
    Const COLOR_HIGHLIGHT = 13
    Const COLOR_HIGHLIGHTTEXT = 14
    Const COLOR_BTNFACE = 15
    Const COLOR_BTNSHADOW = 16
    Const COLOR_GRAYTEXT = 17
    Const COLOR_BTNTEXT = 18
    Const COLOR_ENDCOLORS = COLOR_BTNTEXT

    Declare Function GetSysColor Lib "User" ( nIndex%) As Long
    Declare Sub SetSysColors Lib "User" ( nChanges%, lpSysColor As Pointer To Integer, lpColorValues As Pointer To Long)

    Declare Function FillRgn Lib "User" ( hDC%,  hRgn%,  hBrush%) As Integer
    Declare Function FrameRgn Lib "User" ( hDC%,  hRgn%,  hBrush%,  nWidth%,  nHeight%) As Integer
    Declare Function InvertRgn Lib "User" ( hDC%,  hRgn%) As Integer
    Declare Function PaintRgn Lib "User" ( hDC%,  hRgn%) As Integer
    Declare Function PtInRegion Lib "User" ( hRgn%,  X%,  Y%) As Integer

    Declare Sub DrawFocusRect Lib "User" ( hDC%, lpRect As RECT)
    Declare Function FillRect Lib "User" ( hDC%, lpRect As RECT,  hBrush%) As Integer
    Declare Function FrameRect Lib "User" ( hDC%, lpRect As RECT,  hBrush%) As Integer
    Declare Sub InvertRect Lib "User" ( hDC%, lpRect As RECT)
    Declare Sub SetRect Lib "User" (lpRect As RECT,  X1%,  Y1%,  X2%,  Y2%)
    Declare Sub SetRectEmpty Lib "User" (lpRect As RECT)
    Declare Function CopyRect Lib "User" (lpDestRect As RECT, lpSourceRect As RECT) As Integer
    Declare Sub InflateRect Lib "User" (lpRect As RECT,  X%,  Y%)
    Declare Function IntersectRect Lib "User" (lpDestRect As RECT, lpSrc1Rect As RECT, lpSrc2Rect As RECT) As Integer
    Declare Function UnionRect Lib "User" (lpDestRect As RECT, lpSrc1Rect As RECT, lpSrc2Rect As RECT) As Integer
    Declare Sub OffsetRect Lib "User" (lpRect As RECT,  X%,  Y%)
    Declare Function IsRectEmpty Lib "User" (lpRect As RECT) As Integer
    Declare Function EqualRect Lib "User" (lpRect1 As RECT, lpRect2 As RECT) As Integer

    '  PtInRect also requires a TYPE passed by value - work around with two integers
    Declare Function PtInRect Lib "User" (lpRect As RECT,  y%, x%) As Integer

    Declare Function RectVisible Lib "User" ( hDC%, lpRect As RECT) As Integer
    Declare Function RectInRegion Lib "User" ( hRgn%, lpRect As RECT) As Integer

    Declare Function GetCurrentTime Lib "User" () As Long
    Declare Function GetTickCount Lib "User" () As Long

    Declare Function GetWindowWord Lib "User" ( hWnd%,  nIndex%) As Integer
    Declare Function SetWindowWord Lib "User" ( hWnd%,  nIndex%,  wNewWord%) As Integer
    Declare Function SetWindowLong Lib "User" ( hWnd%,  nIndex%,  dwNewLong&) As Long
    Declare Function GetClassWord Lib "User" ( hWnd%,  nIndex%) As Integer
    Declare Function SetClassWord Lib "User" ( hWnd%,  nIndex%,  wNewWord%) As Integer
    Declare Function GetClassLong Lib "User" ( hWnd%,  nIndex%) As Long
    Declare Function SetClassLong Lib "User" ( hWnd%,  nIndex%,  dwNewLong&) As Long
    Declare Function GetDesktopHwnd Lib "User" () As Integer


    Declare Function GetParent Lib "User" ( hWnd%) As Integer
    Declare Function SetParent Lib "User" ( hWndChild%,  hWndNewParent%) As Integer
    Declare Function GetClassName Lib "User" ( hWnd%,  lpClassName$,  nMaxCount%) As Integer
    Declare Function GetTopWindow Lib "User" ( hWnd%) As Integer
    Declare Function GetNextWindow Lib "User" ( hWnd%,  wFlag%) As Integer
    Declare Function GetWindowTask Lib "User" ( hWnd%) As Integer
    Declare Function GetLastActivePopup Lib "User" ( hwndOwnder%) As Integer

    '  GetWindow() Constants
    Const GW_HWNDFIRST = 0
    Const GW_HWNDLAST = 1
    Const GW_HWNDNEXT = 2
    Const GW_HWNDPREV = 3
    Const GW_OWNER = 4
    Const GW_CHILD = 5

    Declare Function GetWindow Lib "User" ( hWnd%,  wCmd%) As Integer

    '  Menu flags for Add/Check/EnableMenuItem()
    Const MF_INSERT = &H0
    Const MF_CHANGE = &H80
    Const MF_APPEND = &H100
    Const MF_DELETE = &H200
    Const MF_REMOVE = &H1000

    Const MF_BYCOMMAND = &H0
    Const MF_BYPOSITION = &H400

    Const MF_SEPARATOR = &H800

    Const MF_ENABLED = &H0
    Const MF_GRAYED = &H1
    Const MF_DISABLED = &H2

    Const MF_UNCHECKED = &H0
    Const MF_CHECKED = &H8
    Const MF_USECHECKBITMAPS = &H200

    Const MF_STRING = &H0
    Const MF_BITMAP = &H4
    Const MF_OWNERDRAW = &H100

    Const MF_POPUP = &H10
    Const MF_MENUBARBREAK = &H20
    Const MF_MENUBREAK = &H40

    Const MF_UNHILITE = &H0
    Const MF_HILITE = &H80

    Const MF_SYSMENU = &H2000
    Const MF_HELP = &H4000
    Const MF_MOUSESELECT = &H8000

    '  Menu item resource format
    Type MENUITEMTEMPLATEHEADER
        versionNumber As Integer
        offset As Integer
    End Type


    Const MF_END = &H80

    '  System Menu Command Values
    Const SC_SIZE = &HF000
    Const SC_MOVE = &HF010
    Const SC_MINIMIZE = &HF020
    Const SC_MAXIMIZE = &HF030
    Const SC_NEXTWINDOW = &HF040
    Const SC_PREVWINDOW = &HF050
    Const SC_CLOSE = &HF060
    Const SC_VSCROLL = &HF070
    Const SC_HSCROLL = &HF080
    Const SC_MOUSEMENU = &HF090
    Const SC_KEYMENU = &HF100
    Const SC_ARRANGE = &HF110
    Const SC_RESTORE = &HF120
    Const SC_TASKLIST = &HF130

    Const SC_ICON = SC_MINIMIZE
    Const SC_ZOOM = SC_MAXIMIZE

    '  Resource Loading Routines
    Declare Function LoadBitmap Lib "User" ( hInstance%,  lpBitmapName As Any) As Integer
    Declare Function LoadCursor Lib "User" ( hInstance%,  lpCursorName As Any) As Integer
    Declare Function CreateCursor Lib "User" ( hInstance%,  nXhotspot%,  nYhotspot%,  nWidth%,  nHeight%,  lpANDbitPlane As Any,  lpXORbitPlane As Any) As Integer
    Declare Function DestroyCursor Lib "User" ( hCursor%) As Integer

    '  Standard Cursor IDs
    Const IDC_ARROW = 32512
    Const IDC_IBEAM = 32513
    Const IDC_WAIT = 32514
    Const IDC_CROSS = 32515
    Const IDC_UPARROW = 32516
    Const IDC_SIZE = 32640
    Const IDC_ICON = 32641
    Const IDC_SIZENWSE = 32642
    Const IDC_SIZENESW = 32643
    Const IDC_SIZEWE = 32644
    Const IDC_SIZENS = 32645

    Declare Function LoadIcon Lib "User" ( hInstance%,  lpIconName As Any) As Integer
    Declare Function CreateIcon Lib "User" ( hInstance%,  nWidth%,  nHeight%,  nPlanes%,  nBitsPixel%,  lpANDbits As Any,  lpXORbits As Any) As Integer
    Declare Function DestroyIcon Lib "User" ( hIcon%) As Integer


    Const ORD_LANGDRIVER = 1    '  The ordinal number for the entry point of
                                '  language drivers.

    '  Standard Icon IDs
    Const IDI_APPLICATION = 32512
    Const IDI_HAND = 32513
    Const IDI_QUESTION = 32514
    Const IDI_EXCLAMATION = 32515
    Const IDI_ASTERISK = 32516

    Declare Function LoadString Lib "User" ( hInstance%,  wID%,  lpBuffer As Any,  nBufferMax%) As Integer

    Declare Function AddFontResource Lib "GDI" ( lpFilename As Any) As Integer
    Declare Function RemoveFontResource Lib "GDI" ( lpFilename As Any) As Integer

    '  Dialog Box Command IDs
    Const IDOK = 1
    Const IDCANCEL = 2
    Const IDABORT = 3
    Const IDRETRY = 4
    Const IDIGNORE = 5
    Const IDYES = 6
    Const IDNO = 7


    '  Control Manager Structures and Definitions

    '  Edit Control Styles
    Const ES_LEFT = &H0
    Const ES_CENTER = &H1
    Const ES_RIGHT = &H2
    Const ES_MULTILINE = &H4
    Const ES_UPPERCASE = &H8
    Const ES_LOWERCASE = &H10
    Const ES_PASSWORD = &H20
    Const ES_AUTOVSCROLL = &H40
    Const ES_AUTOHSCROLL = &H80
    Const ES_NOHIDESEL = &H100
    Const ES_OEMCONVERT = &H400

    '  Edit Control Notification Codes
    Const EN_SETFOCUS = &H100
    Const EN_KILLFOCUS = &H200
    Const EN_CHANGE = &H300
    Const EN_UPDATE = &H400
    Const EN_ERRSPACE = &H500
    Const EN_MAXTEXT = &H501
    Const EN_HSCROLL = &H601
    Const EN_VSCROLL = &H602

    '  Edit Control Messages
    Const EM_GETSEL = WM_USER+0
    Const EM_SETSEL = WM_USER+1
    Const EM_GETRECT = WM_USER+2
    Const EM_SETRECT = WM_USER+3
    Const EM_SETRECTNP = WM_USER+4
    Const EM_SCROLL = WM_USER+5
    Const EM_LINESCROLL = WM_USER+6
    Const EM_GETMODIFY = WM_USER+7
    Const EM_SETMODIFY = WM_USER+8
    Const EM_GETLINECOUNT = WM_USER+9
    Const EM_LINEINDEX = WM_USER+10
    Const EM_SETHANDLE = WM_USER+12
    Const EM_GETHANDLE = WM_USER+13
    Const EM_GETTHUMB = WM_USER+14
    Const EM_LINELENGTH = WM_USER+17
    Const EM_REPLACESEL = WM_USER+18
    Const EM_SETFONT = WM_USER+19
    Const EM_GETLINE = WM_USER+20
    Const EM_LIMITTEXT = WM_USER+21
    Const EM_CANUNDO = WM_USER+22
    Const EM_UNDO = WM_USER+23
    Const EM_FMTLINES = WM_USER+24
    Const EM_LINEFROMCHAR = WM_USER+25
    Const EM_SETWORDBREAK = WM_USER+26
    Const EM_SETTABSTOPS = WM_USER+27
    Const EM_SETPASSWORDCHAR = WM_USER+28
    Const EM_EMPTYUNDOBUFFER = WM_USER+29
    Const EM_MSGMAX = WM_USER+30

    '  Button Control Styles
    Const BS_PUSHBUTTON = &H0
    Const BS_DEFPUSHBUTTON = &H1
    Const BS_CHECKBOX = &H2
    Const BS_AUTOCHECKBOX = &H3
    Const BS_RADIOBUTTON = &H4
    Const BS_3STATE = &H5
    Const BS_AUTO3STATE = &H6
    Const BS_GROUPBOX = &H7
    Const BS_USERBUTTON = &H8
    Const BS_AUTORADIOBUTTON = &H9
    Const BS_PUSHBOX = &HA
    Const BS_OWNERDRAW = &HB
    Const BS_LEFTTEXT = &H20

    '  User Button Notification Codes
    Const BN_CLICKED = 0
    Const BN_PAINT = 1
    Const BN_HILITE = 2
    Const BN_UNHILITE = 3
    Const BN_DISABLE = 4
    Const BN_DOUBLECLICKED = 5

    '  Button Control Messages
    Const BM_GETCHECK = WM_USER+0
    Const BM_SETCHECK = WM_USER+1
    Const BM_GETSTATE = WM_USER+2
    Const BM_SETSTATE = WM_USER+3
    Const BM_SETSTYLE = WM_USER+4

    '  Static Control Constants
    Const SS_LEFT = &H0
    Const SS_CENTER = &H1
    Const SS_RIGHT = &H2
    Const SS_ICON = &H3
    Const SS_BLACKRECT = &H4
    Const SS_GRAYRECT = &H5
    Const SS_WHITERECT = &H6
    Const SS_BLACKFRAME = &H7
    Const SS_GRAYFRAME = &H8
    Const SS_WHITEFRAME = &H9
    Const SS_USERITEM = &HA
    Const SS_SIMPLE = &HB
    Const SS_LEFTNOWORDWRAP = &HC
    Const SS_NOPREFIX = &H80   '  Don't do "&" character translation

    '  Dialog Manager Routines
    Declare Function IsDialogMessage Lib "User" ( hDlg%, lpMsg As MSG) As Integer

    Declare Sub MapDialogRect Lib "User" ( hDlg%, lpRect As RECT)

    Declare Function DlgDirList Lib "User" ( hDlg%,  lpPathSpec$,  nIDListBox%,  nIDStaticPath%,  wFiletype%) As Integer
    Declare Function DlgDirSelect Lib "User" ( hDlg%,  lpString$,  nIDListBox%) As Integer
    Declare Function DlgDirListComboBox Lib "User" ( hDlg%,  lpPathSpec$,  nIDComboBox%,  nIDStaticPath%,  wFileType%) As Integer
    Declare Function DlgDirSelectComboBox Lib "User" ( hDlg%,  lpString$,  nIDComboBox%) As Integer

    '  Dialog Styles
    Const DS_ABSALIGN = &H1
    Const DS_SYSMODAL = &H2
    Const DS_LOCALEDIT = &H20  '  Edit items get Local storage.
    Const DS_SETFONT = &H40    '  User specified font for Dlg controls
    Const DS_MODALFRAME = &H80 '  Can be combined with WS_CAPTION
    Const DS_NOIDLEMSG = &H100 '  WM_ENTERIDLE message will not be sent

    Const DM_GETDEFID = WM_USER+0
    Const DM_SETDEFID = WM_USER+1
    Const DC_HASDEFID% = &H534     '0x534B

    '  Dialog Codes
    Const DLGC_WANTARROWS = &H1 '  Control wants arrow keys
    Const DLGC_WANTTAB = &H2    '  Control wants tab keys
    Const DLGC_WANTALLKEYS = &H4    '  Control wants all keys
    Const DLGC_WANTMESSAGE = &H4    '  Pass message to control
    Const DLGC_HASSETSEL = &H8  '  Understands EM_SETSEL message
    Const DLGC_DEFPUSHBUTTON = &H10 '  Default pushbutton
    Const DLGC_UNDEFPUSHBUTTON = &H20   '  Non-default pushbutton
    Const DLGC_RADIOBUTTON = &H40   '  Radio button
    Const DLGC_WANTCHARS = &H80 '  Want WM_CHAR messages
    Const DLGC_STATIC = &H100   '  Static item: don't include
    Const DLGC_BUTTON = &H2000  '  Button item: can be checked

    Const LB_CTLCODE = 0

    '  Listbox Return Values
    Const LB_OKAY = 0
    Const LB_ERR = (-1)
    Const LB_ERRSPACE = (-2)

    '
    '  The idStaticPath parameter to DlgDirList can have the following values
    '  ORed if the list box should show other details of the files along with
    '  the name of the files;

    '  all other details also will be returned

    '  Listbox Notification Codes
    Const LBN_ERRSPACE = (-2)
    Const LBN_SELCHANGE = 1
    Const LBN_DBLCLK = 2
    Const LBN_SELCANCEL = 3
    Const LBN_SETFOCUS = 4
    Const LBN_KILLFOCUS = 5

    '  Listbox messages
    Const LB_ADDSTRING = (WM_USER+1)
    Const LB_INSERTSTRING = (WM_USER+2)
    Const LB_DELETESTRING = (WM_USER+3)
    Const LB_RESETCONTENT = (WM_USER+5)
    Const LB_SETSEL = (WM_USER+6)
    Const LB_SETCURSEL = (WM_USER+7)
    Const LB_GETSEL = (WM_USER+8)
    Const LB_GETCURSEL = (WM_USER+9)
    Const LB_GETTEXT = (WM_USER+10)
    Const LB_GETTEXTLEN = (WM_USER+11)
    Const LB_GETCOUNT = (WM_USER+12)
    Const LB_SELECTSTRING = (WM_USER+13)
    Const LB_DIR = (WM_USER+14)
    Const LB_GETTOPINDEX = (WM_USER+15)
    Const LB_FINDSTRING = (WM_USER+16)
    Const LB_GETSELCOUNT = (WM_USER+17)
    Const LB_GETSELITEMS = (WM_USER+18)
    Const LB_SETTABSTOPS = (WM_USER+19)
    Const LB_GETHORIZONTALEXTENT = (WM_USER+20)
    Const LB_SETHORIZONTALEXTENT = (WM_USER+21)
    Const LB_SETCOLUMNWIDTH = (WM_USER+22)
    Const LB_SETTOPINDEX = (WM_USER+24)
    Const LB_GETITEMRECT = (WM_USER+25)
    Const LB_GETITEMDATA = (WM_USER+26)
    Const LB_SETITEMDATA = (WM_USER+27)
    Const LB_SELITEMRANGE = (WM_USER+28)
    Const LB_MSGMAX = (WM_USER+33)

    '  Listbox Styles
    Const LBS_NOTIFY = &H1
    Const LBS_SORT = &H2
    Const LBS_NOREDRAW = &H4
    Const LBS_MULTIPLESEL = &H8
    Const LBS_OWNERDRAWFIXED = &H10
    Const LBS_OWNERDRAWVARIABLE = &H20
    Const LBS_HASSTRINGS = &H40
    Const LBS_USETABSTOPS = &H80
    Const LBS_NOINTEGRALHEIGHT = &H100
    Const LBS_MULTICOLUMN = &H200
    Const LBS_WANTKEYBOARDINPUT = &H400
    Const LBS_EXTENDEDSEL = &H800
    Const LBS_STANDARD = (LBS_NOTIFY Or LBS_SORT Or WS_VSCROLL Or WS_BORDER)

    '  Combo Box return Values
    Const CB_OKAY = 0
    Const CB_ERR = (-1)
    Const CB_ERRSPACE = (-2)

    '  Combo Box Notification Codes
    Const CBN_ERRSPACE = (-1)
    Const CBN_SELCHANGE = 1
    Const CBN_DBLCLK = 2
    Const CBN_SETFOCUS = 3
    Const CBN_KILLFOCUS = 4
    Const CBN_EDITCHANGE = 5
    Const CBN_EDITUPDATE = 6
    Const CBN_DROPDOWN = 7

    '  Combo Box styles
    Const CBS_SIMPLE = &H1
    Const CBS_DROPDOWN = &H2
    Const CBS_DROPDOWNLIST = &H3
    Const CBS_OWNERDRAWFIXED = &H10
    Const CBS_OWNERDRAWVARIABLE = &H20
    Const CBS_AUTOHSCROLL = &H40
    Const CBS_OEMCONVERT = &H80
    Const CBS_SORT = &H100
    Const CBS_HASSTRINGS = &H200
    Const CBS_NOINTEGRALHEIGHT = &H400

    '  Combo Box messages
    Const CB_GETEDITSEL = (WM_USER+0)
    Const CB_LIMITTEXT = (WM_USER+1)
    Const CB_SETEDITSEL = (WM_USER+2)
    Const CB_ADDSTRING = (WM_USER+3)
    Const CB_DELETESTRING = (WM_USER+4)
    Const CB_DIR = (WM_USER+5)
    Const CB_GETCOUNT = (WM_USER+6)
    Const CB_GETCURSEL = (WM_USER+7)
    Const CB_GETLBTEXT = (WM_USER+8)
    Const CB_GETLBTEXTLEN = (WM_USER+9)
    Const CB_INSERTSTRING = (WM_USER+10)
    Const CB_RESETCONTENT = (WM_USER+11)
    Const CB_FINDSTRING = (WM_USER+12)
    Const CB_SELECTSTRING = (WM_USER+13)
    Const CB_SETCURSEL = (WM_USER+14)
    Const CB_SHOWDROPDOWN = (WM_USER+15)
    Const CB_GETITEMDATA = (WM_USER+16)
    Const CB_SETITEMDATA = (WM_USER+17)
    Const CB_GETDROPPEDCONTROLRECT = (WM_USER+18)
    Const CB_MSGMAX = (WM_USER+19)

    '  Scroll Bar Styles
    Const SBS_HORZ = &H0
    Const SBS_VERT = &H1
    Const SBS_TOPALIGN = &H2
    Const SBS_LEFTALIGN = &H2
    Const SBS_BOTTOMALIGN = &H4
    Const SBS_RIGHTALIGN = &H4
    Const SBS_SIZEBOXTOPLEFTALIGN = &H2
    Const SBS_SIZEBOXBOTTOMRIGHTALIGN = &H4
    Const SBS_SIZEBOX = &H8


    '  Sound Functions
    '
    Declare Function OpenSound Lib "Sound" () As Integer
    Declare Sub CloseSound Lib "Sound" ()
    Declare Function SetVoiceQueueSize Lib "Sound" ( nVoice%,  nBytes%) As Integer
    Declare Function SetVoiceNote Lib "Sound" ( nVoice%,  nValue%,  nLength%,  nCdots%) As Integer
    Declare Function SetVoiceAccent Lib "Sound" ( nVoice%,  nTempo%,  nVolume%,  nMode%,  nPitch%) As Integer
    Declare Function SetVoiceEnvelope Lib "Sound" ( nVoice%,  nShape%,  nRepeat%) As Integer
    Declare Function SetSoundNoise Lib "Sound" ( nSource%,  nDuration%) As Integer
    Declare Function SetVoiceSound Lib "Sound" ( nVoice%,  lFrequency&,  nDuration%) As Integer
    Declare Function StartSound Lib "Sound" () As Integer
    Declare Function StopSound Lib "Sound" () As Integer
    Declare Function WaitSoundState Lib "Sound" ( nState%) As Integer
    Declare Function SyncAllVoices Lib "Sound" () As Integer
    Declare Function CountVoiceNotes Lib "Sound" ( nVoice%) As Integer
    Declare Function GetThresholdEvent Lib "Sound" () As Integer
    Declare Function GetThresholdStatus Lib "Sound" () As Integer
    Declare Function SetVoiceThreshold Lib "Sound" ( nVoice%,  nNotes%) As Integer

    '  WaitSoundState() Constants
    Const S_QUEUEEMPTY = 0
    Const S_THRESHOLD = 1
    Const S_ALLTHRESHOLD = 2

    '  Accent Modes
    Const S_NORMAL = 0
    Const S_LEGATO = 1
    Const S_STACCATO = 2

    '  SetSoundNoise() Sources
    Const S_PERIOD512 = 0   '  Freq = N/512 high pitch, less coarse hiss
    Const S_PERIOD1024 = 1  '  Freq = N/1024
    Const S_PERIOD2048 = 2  '  Freq = N/2048 low pitch, more coarse hiss
    Const S_PERIODVOICE = 3 '  Source is frequency from voice channel (3)
    Const S_WHITE512 = 4    '  Freq = N/512 high pitch, less coarse hiss
    Const S_WHITE1024 = 5   '  Freq = N/1024
    Const S_WHITE2048 = 6   '  Freq = N/2048 low pitch, more coarse hiss
    Const S_WHITEVOICE = 7  '  Source is frequency from voice channel (3)

    Const S_SERDVNA = (-1)  '  Device not available
    Const S_SEROFM = (-2)   '  Out of memory
    Const S_SERMACT = (-3)  '  Music active
    Const S_SERQFUL = (-4)  '  Queue full
    Const S_SERBDNT = (-5)  '  Invalid note
    Const S_SERDLN = (-6)   '  Invalid note length
    Const S_SERDCC = (-7)   '  Invalid note count
    Const S_SERDTP = (-8)   '  Invalid tempo
    Const S_SERDVL = (-9)   '  Invalid volume
    Const S_SERDMD = (-10)  '  Invalid mode
    Const S_SERDSH = (-11)  '  Invalid shape
    Const S_SERDPT = (-12)  '  Invalid pitch
    Const S_SERDFQ = (-13)  '  Invalid frequency
    Const S_SERDDR = (-14)  '  Invalid duration
    Const S_SERDSR = (-15)  '  Invalid source
    Const S_SERDST = (-16)  '  Invalid state

    '  COMM declarations
    '
    Const NOPARITY = 0
    Const ODDPARITY = 1
    Const EVENPARITY = 2
    Const MARKPARITY = 3
    Const SPACEPARITY = 4

    Const ONESTOPBIT = 0
    Const ONE5STOPBITS = 1
    Const TWOSTOPBITS = 2

    Const IGNORE = 0    '  Ignore signal
    Const INFINITE = &HFFFF '  Infinite timeout

    '  Error Flags
    Const CE_RXOVER = &H1   '  Receive Queue overflow
    Const CE_OVERRUN = &H2  '  Receive Overrun Error
    Const CE_RXPARITY = &H4 '  Receive Parity Error
    Const CE_FRAME = &H8    '  Receive Framing error
    Const CE_BREAK = &H10   '  Break Detected
    Const CE_CTSTO = &H20   '  CTS Timeout
    Const CE_DSRTO = &H40   '  DSR Timeout
    Const CE_RLSDTO = &H80  '  RLSD Timeout
    Const CE_TXFULL = &H100 '  TX Queue is full
    Const CE_PTO = &H200    '  LPTx Timeout
    Const CE_IOE = &H400    '  LPTx I/O Error
    Const CE_DNS = &H800    '  LPTx Device not selected
    Const CE_OOP = &H1000   '  LPTx Out-Of-Paper
    Const CE_MODE = &H8000  '  Requested mode unsupported

    Const IE_BADID = (-1)   '  Invalid or unsupported id
    Const IE_OPEN = (-2)    '  Device Already Open
    Const IE_NOPEN = (-3)   '  Device Not Open
    Const IE_MEMORY = (-4)  '  Unable to allocate queues
    Const IE_DEFAULT = (-5) '  Error in default parameters
    Const IE_HARDWARE = (-10)   '  Hardware Not Present
    Const IE_BYTESIZE = (-11)   '  Illegal Byte Size
    Const IE_BAUDRATE = (-12)   '  Unsupported BaudRate

    '  Events
    Const EV_RXCHAR = &H1   '  Any Character received
    Const EV_RXFLAG = &H2   '  Received certain character
    Const EV_TXEMPTY = &H4  '  Transmitt Queue Empty
    Const EV_CTS = &H8  '  CTS changed state
    Const EV_DSR = &H10 '  DSR changed state
    Const EV_RLSD = &H20    '  RLSD changed state
    Const EV_BREAK = &H40   '  BREAK received
    Const EV_ERR = &H80 '  Line status error occurred
    Const EV_RING = &H100   '  Ring signal detected
    Const EV_PERR = &H200   '  Printer error occured

    '  Escape Functions
    Const SETXOFF = 1   '  Simulate XOFF received
    Const SETXON = 2    '  Simulate XON received
    Const SETRTS = 3    '  Set RTS high
    Const CLRRTS = 4    '  Set RTS low
    Const SETDTR = 5    '  Set DTR high
    Const CLRDTR = 6    '  Set DTR low
    Const RESETDEV = 7  '  Reset device if possible

    Const LPTx = &H80   '  Set if ID is for LPT device

    Type DCB
        Id As String * 1
        BaudRate As Integer
        ByteSize As String * 1
        Parity As String * 1
        StopBits As String * 1
        RlsTimeout As Integer
        CtsTimeout As Integer
        DsrTimeout As Integer

        Bits1 As String * 1 ' The fifteen actual DCB bit-sized data fields
        Bits2 As String * 1 ' within these two bytes can be manipulated by
                              ' bitwise logical And/Or operations.  Refer to
                              ' SDKWIN.HLP for location/meaning of specific bits

        XonChar As String * 1
        XoffChar As String * 1
        XonLim As Integer
        XoffLim As Integer
        PeChar As String * 1
        EofChar As String * 1
        EvtChar As String * 1
        TxDelay As Integer
    End Type

    Type COMSTAT
        Bits As String * 1 ' For specific bit flags and their
                             ' meanings, refer to SDKWIN.HLP.
        cbInQue As Integer
        cbOutQue As Integer
    End Type

    Declare Function OpenComm Lib "User" ( lpComName$,  wInQueue%,  wOutQueue%) As Integer
    Declare Function SetCommState Lib "User" ()
    Declare Function GetCommState Lib "User" ( nCid%, lpDCB as DCB) As Integer
    Declare Function ReadComm Lib "User" ( nCid%,  lpBuf$,  nSize%) As Integer
    Declare Function UngetCommChar Lib "User" ( nCid%,  cChar%) As Integer
    Declare Function WriteComm Lib "User" ( nCid%,  lpBuf$,  nSize%) As Integer
    Declare Function CloseComm Lib "User" ( nCid%) As Integer
    Declare Function BuildCommDCB Lib "User" ( lpDef$, lpDCB As DCB) As Integer
    Declare Function TransmitCommChar Lib "User" ( nCid%,  cChar%) As Integer
    Declare Function SetCommEventMask Lib "User" ( nCid%, nEvtMask%) As Long
    Declare Function GetCommEventMask Lib "User" ( nCid%,  nEvtMask%) As Integer
    Declare Function SetCommBreak Lib "User" ( nCid%) As Integer
    Declare Function ClearCommBreak Lib "User" ( nCid%) As Integer
    Declare Function FlushComm Lib "User" ( nCid%,  nQueue%) As Integer
    Declare Function EscapeCommFunction Lib "User" ( nCid%,  nFunc%) As Integer

    Type MDICREATESTRUCT
        szClass As Long
        szTitle As Long
        hOwner As Integer
        x As Integer
        y As Integer
        cx As Integer
        cy As Integer
        style As Long
        lParam As Long
    End Type

    Type CLIENTCREATESTRUCT
        hWindowMenu As Integer
        idFirstChild As Integer
    End Type

    Declare Function DefFrameProc Lib "User" ( hWnd%,  hWndMDIClient%,  wMsg%,  wParam%,  lParam&) As Long
    Declare Function DefMDIChildProc Lib "User" ( hWnd%,  wMsg%,  wParam%,  lParam&) As Long

    Declare Function TranslateMDISysAccel Lib "User" ( hWndClient%, lpMsg As MSG) As Integer

    Declare Function ArrangeIconicWindows Lib "User" ( hWnd%) As Integer


    '   Help engine section.

    '  Commands to pass WinHelp()
    Const HELP_CONTEXT = &H1    '  Display topic in ulTopic
    Const HELP_QUIT = &H2   '  Terminate help
    Const HELP_INDEX = &H3  '  Display index
    Const HELP_HELPONHELP = &H4 '  Display help on using help
    Const HELP_SETINDEX = &H5   '  Set the current Index for multi index help
    Const HELP_KEY = &H101      '  Display topic for keyword in offabData
    Const HELP_MULTIKEY = &H201

    Declare Function WinHelp Lib "User" ( hWnd%,  lpHelpFile$,  wCommand%, dwData As Any) As Integer

    Type MULTIKEYHELP
        mkSize As Integer
        mkKeylist As String * 1
        szKeyphrase As String * 253 ' Array length is arbitrary; may be changed
    End Type

    '  function declarations for profiler routines contained in Windows libraries
    Declare Function ProfInsChk Lib "User" () As Integer
    Declare Sub ProfSetup Lib "User" ( nBufferSize%,  nSamples%)
    Declare Sub ProfSampRate Lib "User" ( nRate286%,  nRate386%)
    Declare Sub ProfStart Lib "User" ()
    Declare Sub ProfStop Lib "User" ()
    Declare Sub ProfClear Lib "User" ()
    Declare Sub ProfFlush Lib "User" ()
    Declare Sub ProfFinish Lib "User" ()

'$ENDIF