
Q́@v@`oh錾ɂ

@v́ATOOiJłjz鑽̊֐ꂼ
`o̗vɃN_Ci~bNNsĂB
@̊֐gp邱ƂɂAuał̃T|[g͈͂zrcjgp
x̋@\gƂo悤ɂȂB
  uaŕs\ȕ́A_CAO̕\łBuaō쐬ꂽvO
́A_CAOȏ̂ƂȒPɏoĂ܂̂ŉ^p͂ȂB


P gp̏


  PD֐G[ɂȂꍇ

  @  ckkgpꍇA܂Ƀt@CȂƂ̃G[\
    ꍇL邪Ȁꍇ́A"" ̃t@C̗lɕύXmF邱ƁB
    @t@C͗L邪֐ȂƂ́ACȕ݂Ȃ
    ꍇl̂ŁAt@C_v֐݂̏mF邱ƁB
    iʓIɂ́AWindowsƓfBNgɂckko^邱Ɓj

       `t@C   ۂ̃t@C
        GDI               GDI.EXE
        User              USER.EXE
        Kernel            KERNEL.EXE
                          KRNL286.EXE
                          KRNL386.EXE
        Keyboard          KEYBOARD.DRV
        Sound             SOUND.DRV
        ̑            ̑.DRV
                          ̑.DLL

  QD錾`ɂ

@    ߂lL֐(Function`)

        Declare Function GetBkMode Lib "GDI" (ByVal hDC%) As Integer
                                                              |
                                                            ߂ľ^
        ȗ`
        Declare Function GetBkMode% Lib "GDI" (ByVal hDC%)
                                  |
                                ߂ľ^
        Ăяo`
        rc% = GetBkMode(hDC)
         |               |
         |               +---- 
         +-------------------- ߂l

      ߂l֐(Sub`)

        Declare Sub BringWindowToTop Lib "User" (ByVal hWnd%)

        Ăяo`
        BringWindowToTop(hWnd)
                          |
                          +---- 

      ֐̐擪ɃA_[o[Lꍇ

        Declare Function lclose% Lib "Kernel" Alias "_lclose" (ByVal hFile%)
                          |                           |
                      VBĂяoO           ۂ̊֐


  RDf[^^Cvɂ

      @rcj          ua`

        int             Integer(%)
        WORD            Integer(%)
        DWORD           Long(&)
        HANDLE          Integer(%)
        LPSTR           String($) / Any ́A̍\̖
        TYPE            Type 


  SDɒ

@@@܂ŁArcjgpĂlɂ́AɎ̓_ɒӂ邱ƁB
  @̓_bƈႤ̂ŒӂKvLB

      ua͂b̗lɕ̏ÍAmtkkƒ`Ă܂񕶎̒
    s[`ڊǗĂ܂B

    `ohɓnƂ
      nƂ́A bgqiOjt邱ƁB
      󂯎ꏊ́A炩߃Xy[Xŕ𖄂߂ĂƁB
      i͔zȂǂɂGAmۂĂKvLj

@@yӁz
        {ɂbgqiOjnKvL̂́Amɂ͕słB
@@@@`oŕtȂĂ悢m܂B


    `oh󂯂ƂƂ
      ʓIɂ`ohʒmĂ镶TCÝAmtkkłB
      񒆂̂mtkkmtkkƈȍ~̍̕폜uaōsB
      iႦRD$:蕶,RSIZ:ʒm  GD$ = Left$(RD$,RSIZ) j

  TDgp@ꍇ

      Ғʂ̓Ȃꍇgpsꍇ́Av
    ɕsȏԂɂȂׁAvėグ邱ƁB


  UD܂Ƃ܂`ohgpꍇ

      ̂`ohAgpꍇAp[^uaɌȂ̂́A
    rcjgpĂckk邱ƁB
    yckk̍쐬z
        rcjgpȊOMicrosoft Quick C for Windowsgp
        @L܂BApł݂̂łB


  VDrcj̎Ql

      rcj̃}jAgp邩Aŝ̉QlɂB}Vł
    ICwv SDKHLP.HLP({) ֗łB


  WDrcj痬pc[

      SDKPAINT  ACR쐬
      ̑́AɕKvƂȂB
      iwvRpC[ɂĂ͕KvɉĎgpj


Q@`oh@ckk錾ꗗ

@ȉɋLqꂽéAVisual Basic  MS-Windows 3.0/3.0A VXeR[
gpꍇ̐錾łB
@ۂɎgpꍇ́Arcj̊֐ꗗQƂAړI̊֐TƁB
@i錾ꗗ͂`abɋLڂĂ̂ŏォ猟j
@uał͎gps\Ȉꕔ̊֐́ALڂĂ܂BAɋLڂꂽ
֐ׂĂgpłۏ؂͗L܂̂Ő݌vɂ͒ӂ邱ƁB

@Ps̍ő咷́AQPUL܂̂ŃGfB^̐ݒɒӂ邱ƁB


       -------------- 錾ꗗ (ABC)-------------------


Declare Function AccessResource Lib "Kernel" (ByVal hInstance%,ByVal hResInfo%) As Integer
Declare Function AddAtom Lib "Kernel" (ByVal lpString As String) As Integer
Declare Function AddFontResource Lib "GDI" (ByVal lpFilename As Any) As Integer
Declare Sub AdjustWindowRect Lib "User" (lpRect As RECT,ByVal dwStyle&,ByVal bMenu%)
Declare Sub AdjustWindowRectEx Lib "User" (lpRect As RECT,ByVal dsStyle&,ByVal bMenu%,ByVal dwEsStyle&)
Declare Function AllocDStoCSAlias Lib "Kernel" (ByVal wSelector%) As Integer
Declare Function AllocResource Lib "Kernel" (ByVal hInstance%,ByVal hResInfo%,ByVal dwSize&) As Integer
Declare Function AllocSelector Lib "Kernel" (ByVal wSelector%) As Integer
Declare Sub AnimatePalette Lib "GDI" (ByVal hPalette%,ByVal wStartIndex%,ByVal wNumEntries%,lpPaletteColrs As PALETTEENTRY)
Declare Function AnsiLower Lib "User" (ByVal lpString As String) As Long
Declare Function AnsiLowerBuff Lib "User" (ByVal lpString As String,ByVal aWORD%) As Integer
Declare Function AnsiNext Lib "User" (ByVal lpString As String) As Long
Declare Function AnsiPrev Lib "User" (ByVal lpString As String,ByVal lpString As String) As Long
Declare Function AnsiToOem Lib "Keyboard" (ByVal lpAnsiStr As String,ByVal lpOemStr As String) As Integer
Declare Sub AnsiToOemBuff Lib "Keyboard" (ByVal lpAnsiStr As String,ByVal lpOemStr As String,ByVal nLength%)
Declare Function AnsiUpper Lib "User" (ByVal lpString As String) As String
Declare Function AnsiUpperBuff Lib "User" (ByVal lpString As String,ByVal aWORD%) As Integer
Declare Function AnyPopup Lib "User" () As Integer
Declare Function AppendMenu Lib "User" (ByVal hMenu%,ByVal wFlags%,ByVal wIDNewItem%,ByVal lpNewItem As Any) As Integer
Declare Function Arc Lib "GDI" (ByVal hDC%,ByVal X1%,ByVal Y1%,ByVal X2%,ByVal Y2%,ByVal X3%,ByVal Y3%,ByVal X4%,ByVal Y4%) As Integer
Declare Function ArrangeIconicWindows Lib "User" (ByVal hWnd%) As Integer
Declare Function BeginDeferWindowPos Lib "User" (ByVal nNumWindows%) As Integer
Declare Function BeginPaint Lib "User" (ByVal hWnd%,lpPaint As PAINTSTRUCT) As Integer
Declare Function BitBlt% Lib "GDI" (ByVal hDstDC%,ByVal X%,ByVal Y%,ByVal nWih%,ByVal nHig%,ByVal hSrcDC%,ByVal XSrc%,ByVal YSrc%,ByVal dwRop&)
Declare Sub BringWindowToTop Lib "User" (ByVal hWnd%)
Declare Function BuildCommDCB Lib "User" (ByVal lpDef As String,lpDCB As Dcb) As Integer
Declare Function CallMsgFilter Lib "User" (lpMsg As MSG,ByVal nCode%) As Integer
Declare Function CallWindowProc Lib "User" (ByVal lpPrevWndFunc As Long,ByVal hWnd%,ByVal As wMsg%,ByVal wParam%,ByVal lParam&) As Long
Declare Function Catch Lib "Kernel" (lpCatchBuf As Any) As Integer
Declare Function ChangeClipboardChain Lib "User" (ByVal hWnd%,ByVal hWndNext%) As Integer
Declare Function ChangeMenu Lib "User" (ByVal hMenu%,ByVal wID%,ByVal lpszNew As String,ByVal wIDNew%,ByVal wChange%) As Integer
Declare Function ChangeSelector Lib "Kernel" (ByVal wDestSelector%,ByVal wSourceSelector%) As Integer
Declare Sub CheckDlgButton Lib "User" (ByVal hDlg%,ByVal nIDButton%,ByVal wCheck%)
Declare Function CheckMenuItem Lib "User" (ByVal hMenu%,ByVal wIDCheckItem%,ByVal wCheck%) As Integer
Declare Sub CheckRadioButton Lib "User" (ByVal hDlg%,ByVal nIDFirstButton%,ByVal nIDLastButton%,ByVal nIDCheckButton%)
Declare Function ChildWindowFromPoint Lib "User" (ByVal hWnd%,APIPoint As Any) As Integer
Declare Function Chord Lib "GDI" (ByVal hDC%,ByVal X1%,ByVal Y1%,ByVal X2%,ByVal Y2%,ByVal X3%,ByVal Y3%,ByVal X4%,ByVal Y4%) As Integer
Declare Function ClearCommBreak Lib "User" (ByVal nCid%) As Integer
Declare Sub ClientToScreen Lib "User" (ByVal hWnd%,lpPoint As APIPOINT)
Declare Sub ClipCursor Lib "User" (lpRect As Any)
Declare Function CloseClipboard Lib "User" () As Integer
Declare Function CloseComm Lib "User" (ByVal nCid%) As Integer
Declare Function CloseMetaFile Lib "GDI" (ByVal hMF%) As Integer
Declare Sub CloseSound Lib "Sound" ()
Declare Sub CloseWindow Lib "User" (ByVal hWnd%)
Declare Function CombineRgn Lib "GDI" (ByVal hDestRgn%,ByVal hSrcRgn1%,ByVal hSrcRgn2%,ByVal nCombineMode%) As Integer
Declare Function CopyMetaFile Lib "GDI" (ByVal hMF%,ByVal lpFilename As String) As Integer
Declare Function CopyRect Lib "User" (lpDestRect As RECT,lpSourceRect As RECT) As Integer
Declare Function CountClipboardFormats Lib "User" () As Integer
Declare Function CountVoiceNotes Lib "Sound" (ByVal nVoice%) As Integer
Declare Function CreateBitmap Lib "GDI" (ByVal nWidth%,ByVal nHeight%,ByVal nPlanes%,ByVal nBitCount%,ByVal lpBits As Any) As Integer
Declare Function CreateBitmapIndirect Lib "GDI" (lpBitmap As BITMAP) As Integer
Declare Function CreateBrushIndirect Lib "GDI" (lpLogBrush As LOGBRUSH) As Integer
Declare Sub CreateCaret Lib "User" (ByVal hWnd%,ByVal hBitmap%,ByVal nWidth%,ByVal nHeight%)
Declare Function CreateCompatibleBitmap Lib "GDI" (ByVal hDC%,ByVal nWidth%,ByVal nHeight%) As Integer
Declare Function CreateCompatibleDC Lib "GDI" (ByVal hDC%) As Integer
Declare Function CreateCursor% Lib "User" (ByVal hInst%,ByVal nXhot%,ByVal nYhot%,ByVal nWih%,ByVal nHei%,ByVal lpAND As Any,ByVal lpXOR As Any)
Declare Function CreateDC Lib "GDI" (ByVal lpDrvNam As String,ByVal lpDevNam As String,ByVal lpOut As String,ByVal lpInitD As Strig) As Integer
Declare Function CreateDIBitmap% Lib "GDI" (ByVal hDC%,lpIH As BITMAPINFOHEADER,ByVal dU&,ByVal lpIB As String,lpII As BITMAPINFO,ByVal wU&)
Declare Function CreateDIBPatternBrush Lib "GDI" (ByVal hPackedDIB%,ByVal wUsage%) As Integer
Declare Function CreateDiscardableBitmap Lib "GDI" (ByVal hDC%,ByVal nWidth%,ByVal nHeight%) As Integer
Declare Function CreateEllipticRgn Lib "GDI" (ByVal X1%,ByVal Y1%,ByVal X2%,ByVal Y2%) As Integer
Declare Function CreateEllipticRgnIndirect Lib "GDI" (lpRect As RECT) As Integer
Declare Function CreateFont% Lib "GDI" (ByVal H%,ByVal W%,ByVal E%,ByVal O%,ByVal W%,ByVal I%,ByVal U%,ByVal S%,ByVal C%,ByVal OP%,ByVal CP%,ByVal Q%,ByVal PAF%,ByVal F$)
Declare Function CreateFontIndirect Lib "GDI" (lpLogFont As LOGFONT) As Integer
Declare Function CreateHatchBrush Lib "GDI" (ByVal nIndex%,ByVal crColor&) As Integer
Declare Function CreateIC Lib "GDI" (ByVal lpDriverName As String,ByVal lpDeviceName As String,ByVal lpOutput As String,ByVal lpInitData As  String) As Integer
Declare Function CreateIcon Lib "User" (ByVal hInstance%,ByVal nWidth%,ByVal nHeight%,ByVal nPlanes%,ByVal nBitsPixel%,ByVal lpANDbits As  Any,ByVal lpXORbits As Any) As Integer
Declare Function CreateMenu Lib "User" () As Integer
Declare Function CreateMetaFile Lib "GDI" (lpString As Any) As Integer
Declare Function CreatePalette Lib "GDI" (lpLogPalette As LOGPALETTE) As Integer
Declare Function CreatePatternBrush Lib "GDI" (ByVal hBitmap%) As Integer
Declare Function CreatePen Lib "GDI" (ByVal nPenStyle%,ByVal nWidth%,ByVal crColor&) As Integer
Declare Function CreatePenIndirect Lib "GDI" (lpLogPen As LOGPEN) As Integer
Declare Function CreatePolygonRgn Lib "GDI" (lpPoints As APIPOINT,ByVal nCount%,ByVal nPolyFillMode%) As Integer
Declare Function CreatePolyPolygonRgn Lib "GDI" (lpPoints As APIPOINT,lpPolyCounts%,ByVal nCount%,ByVal nPolyFillMode As Integer) As Integer
Declare Function CreatePopupMenu Lib "User" () As Integer
Declare Function CreateRectRgn Lib "GDI" (ByVal X1%,ByVal Y1%,ByVal X2%,ByVal Y2%) As Integer
Declare Function CreateRectRgnIndirect Lib "GDI" (lpRect As RECT) As Integer
Declare Function CreateRoundRectRgn Lib "GDI" (ByVal X1%,ByVal Y1%,ByVal X2%,ByVal Y2%,ByVal X3%,ByVal Y3%) As Integer
Declare Function CreateSolidBrush Lib "GDI" (ByVal crColor&) As Integer
Declare Function CreateWindow% Lib "User" (ByVal lpClsNam$,ByVal lpWinNam$,ByVal dwStyle&,ByVal X%,ByVal Y%,ByVal nWth%,ByVal nHig%, ByVal hWndPrt%, ByVal hMenu%, ByVal hInst%, ByVal lpParam$)
Declare Function CreateWindowEx% Lib "User" (ByVal dwExSt&, ByVal lpClsNam$, ByVal lpWinNam$, ByVal dwStyle&, ByVal X%, ByVal Y%, ByVal nWth%, ByVal nHig%, ByVal hWndPrt%, ByVal hMenu%, ByVal hInst%, ByVal lpParam$)
Declare Sub DebugBreak Lib "Kernel" ()
Declare Function DefDlgProc Lib "User" (ByVal hDlg%,ByVal wMsg%,ByVal wParam%,lParam As Any) As Long
Declare Function DeferWindowPos% Lib "User" (ByVal hWinPosInfo As Integer, ByVal hWnd as Integer, ByVal hWndInsertAfter as Integer, ByVal x, ByVal y, ByVal cx, ByVal cy, ByVal wFlags as Integer)
Declare Function DefFrameProc Lib "User" (ByVal hWnd%,ByVal hWndMDIClient%,ByVal wMsg%,ByVal wParam%
Declare Function DefMDIChildProc Lib "User" (ByVal hWnd%,ByVal wMsg%,ByVal wParam%,ByVal lParam&) As Long
Declare Function DefWindowProc Lib "User" (ByVal hWnd%,ByVal wMsg%,ByVal wParam%,lParam As Any) As Long
Declare Function DeleteAtom Lib "Kernel" (ByVal nAtom%) As Integer
Declare Function DeleteDC Lib "GDI" (ByVal hDC%) As Integer
Declare Function DeleteMenu Lib "User" (ByVal hMenu%,ByVal nPosition%,ByVal wFlags%) As Integer
Declare Function DeleteMetaFile Lib "GDI" (ByVal hMF%) As Integer
Declare Function DeleteObject Lib "GDI" (ByVal hObject%) As Integer
Declare Sub DestroyCaret Lib "User" ()
Declare Function DestroyCursor Lib "User" (ByVal hCursor%) As Integer
Declare Function DestroyIcon Lib "User" (ByVal hIcon%) As Integer
Declare Function DestroyMenu Lib "User" (ByVal hMenu%) As Integer
Declare Function DestroyWindow Lib "User" (ByVal hWnd%) As Integer
Declare Function DispatchMessage Lib "User" (lpMsg As MSG) As Long
Declare Function DlgDirList Lib "User" (ByVal hDlg%,ByVal lpPathSpec As String,ByVal nIDListBox%,ByVal nIDStaticPath%, ByVal wFiletype%) As Integer
Declare Function DlgDirListComboBox Lib "User" (ByVal hDlg%,ByVal lpPathSpec As String,ByVal nIDComboBox%,ByVal nIDStaticPath%, ByVal wFileType%) As Integer
Declare Function DlgDirSelect Lib "User" (ByVal hDlg%,ByVal lpString As String,ByVal nIDListBox%) As Integer
Declare Function DlgDirSelectComboBox Lib "User" (ByVal hDlg%,ByVal lpString As String,ByVal nIDComboBox%) As Integer
Declare Function DPtoLP Lib "GDI" (ByVal hDC%,lpPoints As APIPOINT,ByVal nCount%) As Integer
Declare Sub DrawFocusRect Lib "User" (ByVal hDC%,lpRect As RECT)
Declare Function DrawIcon Lib "GDI" (ByVal hDC%,ByVal X%,ByVal Y%,ByVal hIcon%) As Integer
Declare Sub DrawMenuBar Lib "User" (ByVal hWnd%)
Declare Function DrawText Lib "GDI" (ByVal hDC%,ByVal lpStr As String,ByVal nCount%,lpRect As RECT,ByVal wFormat%) As Integer
Declare Function Ellipse Lib "GDI" (ByVal hDC%,ByVal X1%,ByVal Y1%,ByVal X2%,ByVal Y2%) As Integer
Declare Function EmptyClipboard Lib "User" () As Integer
Declare Function EnableHardwareInput Lib "User" (ByVal bEnableInput%) As Integer
Declare Function EnableMenuItem Lib "User" (ByVal hMenu%,ByVal wIDEnableItem%,ByVal wEnable%) As Integer
Declare Function EnableWindow Lib "User" (ByVal hWnd%,ByVal aBOOL%) As Integer
Declare Sub EndDeferWindowPos Lib "User" (ByVal hWinPosInfo%)
Declare Sub EndDialog Lib "User" (ByVal hDlg%,ByVal nResult%)
Declare Sub EndPaint Lib "User" (ByVal hWnd%,lpPaint As PAINTSTRUCT)
Declare Function EnumClipboardFormats Lib "User" (ByVal wFormat%) As Integer
Declare Function EqualRect Lib "User" (lpRect1 As RECT,lpRect2 As RECT) As Integer
Declare Function EqualRgn Lib "GDI" (ByVal hSrcRgn1%,ByVal hSrcRgn2%) As Integer
Declare Function Escape Lib "GDI" (ByVal hDC%,ByVal nEscape%,ByVal nCount%,lplnData As Any,lpOutData As Any) As Integer
Declare Function EscapeCommFunction Lib "User" (ByVal nCid%,ByVal nFunc%) As Integer
Declare Function ExcludeClipRect Lib "GDI" (ByVal hDC%,ByVal X1%,ByVal Y1%,ByVal X2%,ByVal Y2%) As Integer
Declare Function ExcludeUpdateRgn Lib "User" (ByVal hDC%,ByVal hWnd%) As Integer
Declare Function ExitWindows Lib "User" (ByVal dwReserved&,ByVal wReturnCode%) As Integer
Declare Function ExtFloodFill Lib "GDI" (ByVal hDC%,ByVal X%,ByVal Y%,ByVal crColor&,ByVal wFillType%) As Integer
Declare Function ExtTextOut Lib "GDI" (ByVal hDC%,ByVal X%,ByVal Y%,ByVal wOptions%,lpRect As Any, ByVal lpString As String, ByVal nCount%, lpDx As Any) As Integer
Declare Sub FatalExit Lib "Kernel" (ByVal Code%)
Declare Function FillRect Lib "User" (ByVal hDC%,lpRect As RECT,ByVal hBrush%) As Integer
Declare Function FillRgn Lib "User" (ByVal hDC%,ByVal hRgn%,ByVal hBrush%) As Integer
Declare Function FindAtom Lib "Kernel" (ByVal lpString As String) As Integer
Declare Function FindResource Lib "Kernel" (ByVal hInstance%,ByVal lpName As String,ByVal lpType As Any) As Integer
Declare Function FindWindow Lib "User" (lpClassName As Any,lpWindowName As Any) As Integer
Declare Function FlashWindow Lib "User" (ByVal hWnd%,ByVal bInvert%) As Integer
Declare Function FloodFill Lib "GDI" (ByVal hDC%,ByVal X%,ByVal Y%,ByVal crColor&) As Integer
Declare Function FlushComm Lib "User" (ByVal nCid%,ByVal nQueue%) As Integer
Declare Function FrameRect Lib "User" (ByVal hDC%,lpRect As RECT,ByVal hBrush%) As Integer
Declare Function FrameRgn Lib "User" (ByVal hDC%,ByVal hRgn%,ByVal hBrush%,ByVal nWidth%,ByVal nHeight%) As Integer
Declare Sub FreeLibrary Lib "Kernel" (ByVal hLibModule%)
Declare Sub FreeModule Lib "Kernel" (ByVal hModule%) 
Declare Function FreeResource Lib "Kernel" (ByVal hResData%) As Integer
Declare Function FreeSelector Lib "Kernel" (ByVal wSelector%) As Integer
Declare Function GetActiveWindow Lib "User" () As Integer
Declare Function GetAspectRatioFilter Lib "GDI" (ByVal hDC%) As Long
Declare Function GetAsyncKeyState Lib "User" (ByVal vKey%) As Integer
Declare Function GetAtomHandle Lib "Kernel" (ByVal wAtom%) As Integer
Declare Function GetAtomName Lib "Kernel" (ByVal nAtom%,ByVal lpBuffer As String,ByVal nSize%) As Integer
Declare Function GetBitmapBits Lib "GDI" (ByVal hBitmap%,ByVal dwCount&,ByVal lpBits As Any) As Long
Declare Function GetBitmapDimension Lib "GDI" (ByVal hBitmap%) As Long
Declare Function GetBkColor Lib "GDI" (ByVal hDC%) As Long
Declare Function GetBkMode Lib "GDI" (ByVal hDC%) As Integer
Declare Function GetBrushOrg Lib "GDI" (ByVal hDC%) As Long
Declare Function GetCapture Lib "User" () As Integer
Declare Function GetCaretBlinkTime Lib "User" () As Integer
Declare Sub GetCaretPos Lib "User" (lpPoint As APIPOINT)
Declare Function GetCharWidth Lib "GDI" (ByVal hDC%,ByVal wFirstChar%,ByVal wLastChar%,lpBuffer%) As Integer
Declare Function GetClassLong Lib "User" (ByVal hWnd%,ByVal nIndex%) As Long
Declare Function GetClassName Lib "User" (ByVal hWnd%,ByVal lpClassName As String,ByVal nMaxCount%) As Integer
Declare Function GetClassWord Lib "User" (ByVal hWnd%,ByVal nIndex%) As Integer
Declare Sub GetClientRect Lib "User" (ByVal hWnd%,lpRect As RECT)
Declare Function GetClipboardData Lib "User" (ByVal wFormat%) As Integer
Declare Function GetClipboardFormatName Lib "User" (ByVal wFormat%,ByVal lpString As String,ByVal nMaxCount%) As Integer
Declare Function GetClipboardOwner Lib "User" () As Integer
Declare Function GetClipboardViewer Lib "User" () As Integer
Declare Function GetClipBox Lib "GDI" (ByVal hDC%,lpRect As RECT) As Integer
Declare Function GetCommEventMask Lib "User" (ByVal nCid%,ByVal nEvtMask%) As Integer
Declare Function GetCommState Lib "User" (ByVal nCid%,lpDCB As Dcb) As Integer
Declare Function GetCurrentPDB Lib "Kernel" () As Integer
Declare Function GetCurrentPosition Lib "GDI" (ByVal hDC%) As Long
Declare Function GetCurrentTask Lib "Kernel" () As Integer
Declare Function GetCurrentTime Lib "User" () As Long
Declare Sub GetCursorPos Lib "User" (lpPoint As APIPOINT)
Declare Function GetDC Lib "USER" (ByVal hWnd%) As Integer
Declare Function GetDCOrg Lib "GDI" (ByVal hDC%) As Long
Declare Function GetDesktopHwnd Lib "User" () As Integer
Declare Function GetDesktopWindow Lib "User" () As Integer
Declare Function GetDeviceCaps Lib "GDI" (ByVal hDC%,ByVal nIndex%) As Integer
Declare Function GetDialogBaseUnits Lib "User" () As Long
Declare Function GetDIBits Lib "GDI" (ByVal aHDC%,ByVal hBitmap%,ByVal nStartScan%,ByVal nNumScans%, ByVal lpBits As String, lpBI As BITMAPINFO, ByVal wUsage%) As Integer
Declare Function GetDlgCtrlID Lib "User" (ByVal hWnd%) As Integer
Declare Function GetDlgItem Lib "User" (ByVal hDlg%,ByVal nIDDlgItem%) As Integer
Declare Function GetDlgItemInt Lib "User" (ByVal hDlg%,ByVal nIDDlgItem%,lpTranslated%,ByVal bSigned%) As Integer
Declare Function GetDlgItemText Lib "User" (ByVal hDlg%,ByVal nIDDlgItem%,ByVal lpString As String,ByVal nMaxCount%) As Integer
Declare Function GetDOSEnvironment Lib "Kernel" () As Long
Declare Function GetDoubleClickTime Lib "User" () As Integer
Declare Function GetDriveType Lib "Kernel" (ByVal nDrive%) As Integer
Declare Function GetEnvironment Lib "GDI" (ByVal lpPortName As String,lpEnviron As Any,ByVal nMaxCount%) As Integer
Declare Function GetFocus Lib "User" () As Integer
Declare Function GetFreeSpace Lib "Kernel" (ByVal wFlags%) As Long
Declare Function GetInputState Lib "User" () As Integer
Declare Function GetInstanceData Lib "Kernel" (ByVal hInstance%,ByVal pData%,ByVal nCount%) As Integer
Declare Function GetKBCodePage Lib "Keyboard" ()
Declare Sub GetKeyboardState Lib "User" (LpKeyState As Any)
Declare Function GetKeyboardType Lib "Keyboard" (ByVal nTypeFlag%) As Integer
Declare Function GetKeyNameText Lib "Keyboard" (ByVal lParam&,ByVal lpBuffer As String,ByVal nSize%) As Integer
Declare Function GetKeyState Lib "User" (ByVal nVirtKey%) As Integer
Declare Function GetLastActivePopup Lib "User" (ByVal hwndOwnder%) As Integer
Declare Function GetMapMode Lib "GDI" (ByVal hDC%) As Integer
Declare Function GetMenu Lib "User" (ByVal hWnd%) As Integer
Declare Function GetMenuCheckMarkDimensions Lib "User" () As Long
Declare Function GetMenuItemCount Lib "User" (ByVal hMenu%) As Integer
Declare Function GetMenuItemID Lib "User" (ByVal hMenu%,ByVal nPos%) As Integer
Declare Function GetMenuState Lib "User" (ByVal hMenu%,ByVal wId%,ByVal wFlags%) As Integer
Declare Function GetMenuString Lib "User" (ByVal hMenu%,ByVal wIDItem%,ByVal lpString As String,ByVal nMaxCount%,ByVal wFlag%) As Integer
Declare Function GetMessage Lib "User" (lpMsg As MSG,ByVal hWnd%,ByVal wMsgFilterMin%,ByVal wMsgFilterMax%) As Integer
Declare Function GetMessagePos Lib "User" () As Long
Declare Function GetMessageTime Lib "User" () As Long
Declare Function GetMetaFile Lib "GDI" (ByVal lpFilename As String) As Integer
Declare Function GetMetaFileBits Lib "GDI" (ByVal hMF%) As Integer
Declare Function GetModuleFileName Lib "Kernel" (ByVal hModule%,ByVal lpFilename As String,ByVal nSize%) As Integer
Declare Function GetModuleHandle Lib "Kernel" (ByVal lpModuleName As String) As Integer
Declare Function GetModuleUsage Lib "Kernel" (ByVal hModule%) As Integer
Declare Function GetNearestColor Lib "GDI" (ByVal hDC%,ByVal crColor&) As Long
Declare Function GetNearestPaletteIndex Lib "GDI" (ByVal hPalette%,ByVal crColor&) As Integer
Declare Function GetNextDlgGroupItem Lib "User" (ByVal hDlg%,ByVal hCtl%,ByVal bPrevious%) As Integer
Declare Function GetNextDlgTabItem Lib "User" (ByVal hDlg%,ByVal hCtl%,ByVal bPrevious%) As Integer
Declare Function GetNextWindow Lib "User" (ByVal hWnd%,ByVal wFlag%) As Integer
Declare Function GetNumTasks Lib "Kernel" () As Integer
Declare Function GetObject Lib "GDI" (ByVal hObject%,ByVal nCount%,ByVal lpObject&) As Integer
Declare Function GetPaletteEntries Lib "GDI" (ByVal hPalette%,ByVal wStartIndex%,ByVal wNumEntries%,lpPaletteEntries As PALETTEENTRY) As Integer
Declare Function GetParent Lib "User" (ByVal hWnd%) As Integer
Declare Function GetPixel Lib "GDI" (ByVal hDC%,ByVal X%,ByVal Y%) As Long
Declare Function GetPolyFillMode Lib "GDI" (ByVal hDC%) As Integer
Declare Function GetPriorityClipboardFormat Lib "User" (lpPriorityList%,ByVal nCount%) As Integer
Declare Function GetPrivateProfileInt Lib "Kernel" (ByVal lpApplicationName As String,ByVal lpKeyName As String,ByVal nDefault%,ByVal lpFileName As String) As Integer
Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpApName As String,ByVal lpKName As String,ByVal lpDefault As String,ByVal lpRetStr As String,ByVal nSize%,ByVal lpFName As String) As Integer
Declare Function GetProfileInt Lib "Kernel" (ByVal lpAppName As String,ByVal lpKeyName As String,ByVal nDefault%) As Integer
Declare Function GetProfileString Lib "Kernel" (ByVal lpAppName As String,ByVal lpKeyName As String,ByVal lpDefault As String,ByVal lpReturnedString As String,ByVal nSize%) As Integer
Declare Function GetProp Lib "User" (ByVal hWnd%,ByVal lpString As Any) As Integer
Declare Function GetRgnBox Lib "GDI" (ByVal hRgn%,lpRect As RECT) As Integer
Declare Function GetROP2 Lib "GDI" (ByVal hDC%) As Integer
Declare Function GetScrollPos Lib "User" (ByVal hWnd%,ByVal nBar%) As Integer
Declare Sub GetScrollRange Lib "User" (ByVal hWnd%,ByVal nBar%,lpMinPos%,lpMaxPos%)
Declare Function GetStockObject Lib "GDI" (ByVal nIndex%) As Integer
Declare Function GetStretchBltMode Lib "GDI" (ByVal hDC%) As Integer
Declare Function GetSubMenu Lib "User" (ByVal hMenu%,ByVal nPos%) As Integer
Declare Function GetSysColor Lib "User" (ByVal nIndex%) As Long
Declare Function GetSysModalWindow Lib "User" () As Integer
Declare Function GetSystemDirectory Lib "Kernel" (ByVal lpBuffer As String,ByVal nSize%) As Integer
Declare Function GetSystemMenu Lib "User" (ByVal hWnd%,ByVal bRevert%) As Integer
Declare Function GetSystemMetrics Lib "User" (ByVal nIndex%) As Integer
Declare Function GetSystemPaletteEntries Lib "GDI" (ByVal hDC%,ByVal wStartIndex%,ByVal wNumEntries%,lpPaletteEntries As PALETTEENTRY) As Integer
Declare Function GetSystemPaletteUse Lib "GDI" (ByVal hDC%) As Integer
Declare Function GetTabbedTextExtent Lib "GDI" (ByVal hDC%,ByVal lpString As String,ByVal nCount%,ByVal nTabPositions%,lpnTabStopPositions%) As Long
Declare Function GetTempDrive Lib "Kernel" (ByVal cDriveLetter as Integer) As Integer
Declare Function GetTempFileName Lib "Kernel" (ByVal cDriveLetter as Integer,ByVal lpPrefixString As String,ByVal wUnique%,ByVal lpTempFileName As String) As Integer
Declare Function GetTextAlign Lib "GDI" (ByVal hDC%) As Integer
Declare Function GetTextCharacterExtra Lib "GDI" (ByVal hDC%) As Integer
Declare Function GetTextColor Lib "GDI" (ByVal hDC%) As Long
Declare Function GetTextExtent Lib "GDI" (ByVal hDC%,ByVal lpString As String,ByVal nCount%) As Long
Declare Function GetTextFace Lib "GDI" (ByVal hDC%,ByVal nCount%,ByVal lpFacename As String) As Integer
Declare Function GetTextMetrics Lib "GDI" (ByVal hDC%,lpMetrics As TEXTMETRIC) As Integer
Declare Function GetThresholdEvent Lib "Sound" () As Integer
Declare Function GetThresholdStatus Lib "Sound" () As Integer
Declare Function GetTickCount Lib "User" () As Long
Declare Function GetTopWindow Lib "User" (ByVal hWnd%) As Integer
Declare Function GetUpdateRect Lib "User" (ByVal hWnd%,lpRect As RECT,ByVal bErase%) As Integer
Declare Function GetUpdateRgn Lib "User" (ByVal hWnd%,ByVal hRgn%,ByVal fErase%) As Integer
Declare Function GetVersion Lib "Kernel" () As Integer
Declare Function GetViewportExt Lib "GDI" (ByVal hDC%) As Long
Declare Function GetViewportOrg Lib "GDI" (ByVal hDC%) As Long
Declare Function GetWindow Lib "User" (ByVal hWnd%,ByVal wCmd%) As Integer
Declare Function GetWindowDC Lib "GDI" (ByVal hWnd%) As Integer
Declare Function GetWindowExt Lib "GDI" (ByVal hDC%) As Long
Declare Function GetWindowLong Lib "User" (ByVal hWnd%,ByVal nIndex%) As Long
Declare Function GetWindowOrg Lib "GDI" (ByVal hDC%) As Long
Declare Sub GetWindowRect Lib "User" (ByVal hWnd%,lpRect As RECT)
Declare Function GetWindowsDirectory Lib "Kernel" (ByVal lpBuffer As String,ByVal nSize%) As Integer
Declare Function GetWindowTask Lib "User" (ByVal hWnd%) As Integer
Declare Function GetWindowText Lib "User" (ByVal hWnd%,ByVal lpString As String,ByVal aint%) As Integer
Declare Function GetWindowTextLength Lib "User" (ByVal hWnd%) As Integer
Declare Function GetWindowWord Lib "User" (ByVal hWnd%,ByVal nIndex%) As Integer
Declare Function GetWinFlags Lib "Kernel" () As Long
Declare Function GlobalAddAtom Lib "Kernel" (ByVal lpString As String) As Integer
Declare Function GlobalAlloc Lib "Kernel" (ByVal wFlags%,ByVal dwBytes&) As Integer
Declare Function GlobalCompact Lib "Kernel" (ByVal dwMinFree&) As Long
Declare Function GlobalDeleteAtom Lib "Kernel" (ByVal nAtom%) As Integer
Declare Function GlobalFindAtom Lib "Kernel" (ByVal lpString As String) As Integer
Declare Sub GlobalFix Lib "Kernel" (ByVal hMem%)
Declare Function GlobalFlags Lib "Kernel" (ByVal hMem%) As Integer
Declare Function GlobalFree Lib "Kernel" (ByVal hMem%) As Integer
Declare Function GlobalGetAtomName Lib "Kernel" (ByVal nAtom%,ByVal lpbuffer As String,ByVal nSize%) As Integer
Declare Function GlobalHandle Lib "Kernel" (ByVal wMem%) As Long
Declare Function GlobalLock Lib "Kernel" (ByVal hMem%) As Long
Declare Function GlobalLRUNewest Lib "Kernel" (ByVal hMem%) As Integer
Declare Function GlobalLRUOldest Lib "Kernel" (ByVal hMem%) As Integer
Declare Function GlobalPageLock Lib "Kernel" (ByVal wSelector%) As Integer
Declare Function GlobalPageUnlock Lib "Kernel" (ByVal wSelector%) As Integer
Declare Function GlobalReAlloc Lib "Kernel" (ByVal hMem%,ByVal dwBytes&,ByVal wFlags%) As Integer
Declare Function GlobalSize Lib "Kernel" (ByVal hMem%) As Long
Declare Function GlobalUnfix Lib "Kernel" (ByVal hMem%) As Integer
Declare Function GlobalUnlock Lib "Kernel" (ByVal hMem%) As Integer
Declare Function GlobalUnWire Lib "Kernel" (ByVal hMem%) As Integer
Declare Function GlobalWire Lib "Kernel" (ByVal hMem%) As Long
Declare Sub HideCaret Lib "User" (ByVal hWnd%)
Declare Function HiliteMenuItem Lib "User" (ByVal hWnd%,ByVal hMenu%,ByVal wIDHiliteItem%,ByVal wHilite%) As Integer
Declare Sub InflateRect Lib "User" (lpRect As RECT,ByVal X%,ByVal Y%)
Declare Function InitAtomTable Lib "Kernel" (ByVal nSize%) As Integer
Declare Function InSendMessage Lib "User" () As Integer
Declare Function InsertMenu Lib "User" (ByVal hMenu%,ByVal nPosition%,ByVal wFlags%,ByVal wIDNewItem%,ByVal lpNewItem As Any) As Integer
Declare Function IntersectClipRect Lib "GDI" (ByVal hDC%,ByVal X1%,ByVal Y1%,ByVal X2%,ByVal Y2%) As Integer
Declare Function IntersectRect Lib "User" (lpDestRect As RECT,lpSrc1Rect As RECT,lpSrc2Rect As RECT) As Integer
Declare Sub InvalidateRect Lib "User" (ByVal hWnd%,lpRect As RECT,ByVal bErase%)
Declare Sub InvalidateRgn Lib "User" (ByVal hWnd%,ByVal hRgn%,ByVal bErase%)
Declare Sub InvertRect Lib "User" (ByVal hDC%,lpRect As RECT)
Declare Function InvertRgn Lib "User" (ByVal hDC%,ByVal hRgn%) As Integer
Declare Function IsCharAlpha Lib "User" (ByVal cChar%) As Integer
Declare Function IsCharAlphaNumeric Lib "User" (ByVal cChar%) As Integer
Declare Function IsCharLower Lib "User" (ByVal cChar%) As Integer
Declare Function IsCharUpper Lib "User" (ByVal cChar%) As Integer
Declare Function IsChild Lib "User" (ByVal hWndParent%,ByVal hWnd%) As Integer
Declare Function IsClipboardFormatAvailable Lib "User" (ByVal wFormat%) As Integer
Declare Function IsDialogMessage Lib "User" (ByVal hDlg%,lpMsg As MSG) As Integer
Declare Function IsDlgButtonChecked Lib "User" (ByVal hDlg%,ByVal nIDButton%) As Integer
Declare Function IsIconic Lib "User" (ByVal hWnd%) As Integer
Declare Function IsRectEmpty Lib "User" (lpRect As RECT) As Integer
Declare Function IsWindow Lib "User" (ByVal hWnd%) As Integer
Declare Function IsWindowEnabled Lib "User" (ByVal hWnd%) As Integer
Declare Function IsWindowVisible Lib "User" (ByVal hWnd%) As Integer
Declare Function IsZoomed Lib "User" (ByVal hWnd%) As Integer
Declare Function KillTimer Lib "User" (ByVal hWnd%,ByVal nIDEvent%) As Integer
Declare Function lclose Lib "Kernel" Alias "_lclose" (ByVal hFile%) As Integer
Declare Function lcreat Lib "Kernel" Alias "_lcreat" (ByVal lpPathName As String,ByVal iAttribute%) As Integer
Declare Sub LimitEMSPages Lib "Kernel" (ByVal dwKbytes&)
Declare Function LineTo Lib "GDI" (ByVal hDC%,ByVal X%,ByVal Y%) As Integer
Declare Function llseek Lib "Kernel" Alias "_llseek" (ByVal hFile%,ByVal lOffset&,ByVal iOrigin%) As Long
Declare Function LoadAccelerators Lib "User" (ByVal hInstance%,ByVal lpTableName As String) As Integer
Declare Function LoadBitmap Lib "User" (ByVal hInstance%,ByVal lpBitmapName As Any) As Integer
Declare Function LoadCursor Lib "User" (ByVal hInstance%,ByVal lpCursorName As Any) As Integer
Declare Function LoadIcon Lib "User" (ByVal hInstance%,ByVal lpIconName As Any) As Integer
Declare Function LoadLibrary Lib "Kernel" (ByVal lpLibFileName As String) As Integer
Declare Function LoadMenu Lib "User" (ByVal hInstance%,ByVal lpString As String) As Integer
Declare Function LoadMenuIndirect Lib "User" (lpMenuTemplate As MENUITEMTEMPLATE) As Integer
Declare Function LoadModule Lib "Kernel" (ByVal lpModuleName As String,lpParameterBlock As PARAMETERBLOCK) As Integer
Declare Function LoadResource Lib "Kernel" (ByVal hInstance%,ByVal hResInfo%) As Integer
Declare Function LoadString Lib "User" (ByVal hInstance%,ByVal wID%,ByVal lpBuffer As Any,ByVal nBufferMax%) As Integer
Declare Function LocalAlloc Lib "Kernel" (ByVal wFlags%,ByVal wBytes%) As Integer
Declare Function LocalCompact Lib "Kernel" (ByVal wMinFree%) As Integer
Declare Function LocalFlags Lib "Kernel" (ByVal hMem%) As Integer
Declare Function LocalFree Lib "Kernel" (ByVal hMem%) As Integer
Declare Function LocalHandle Lib "Kernel" (ByVal wMem%) As Integer
Declare Function LocalInit Lib "Kernel" (ByVal wSegment%,ByVal pStart%,ByVal pEnd%) As Integer
Declare Function LocalLock Lib "Kernel" (ByVal hMem%) As Integer '(returns a near pointer)
Declare Function LocalReAlloc Lib "Kernel" (ByVal hMem%,ByVal wBytes%,ByVal wFlags%) As Integer
Declare Function LocalShrink Lib "Kernel" (ByVal hSeg%,ByVal wSize%) As Integer
Declare Function LocalSize Lib "Kernel" (ByVal hMem%) As Integer
Declare Function LocalUnlock Lib "Kernel" (ByVal hMem%) As Integer
Declare Function LockResource Lib "Kernel" (ByVal hResData%) As Long
Declare Function LockSegment Lib "Kernel" (ByVal wSegment%) As Integer
Declare Function lopen Lib "Kernel" Alias "_lopen" (ByVal lpPathName As String,ByVal iReadWrite%) As Integer
Declare Function LPtoDP Lib "GDI" (ByVal hDC%,lpPoints As APIPOINT,ByVal nCount%) As Integer
Declare Function lread Lib "Kernel" Alias "_lread" (ByVal hFile%,ByVal lpBuffer As String,ByVal wBytes%) As Integer
Declare Function lstrcat Lib "Kernel" (ByVal lpString1 As Any,ByVal lpString2 As Any) As Long
Declare Function lstrcmp Lib "User" (ByVal lpString1 As Any,ByVal lpString2 As Any) As Integer
Declare Function lstrcmpi Lib "User" (ByVal lpString1 As Any,ByVal lpString2 As Any) As Integer
Declare Function lstrcpy Lib "Kernel" (ByVal lpString1 As Any,ByVal lpString2 As Any) As Long
Declare Function lstrlen Lib "Kernel" (ByVal lpString As Any) As Integer
Declare Function lwrite Lib "Kernel" Alias "_lwrite" (ByVal hFile%,ByVal lpBuffer As String,ByVal wBytes%) As Integer
Declare Sub MapDialogRect Lib "User" (ByVal hDlg%,lpRect As RECT)
Declare Function MapVirtualKey Lib "Keyboard" (ByVal wCode%,ByVal wMapType%) As Integer
Declare Sub MessageBeep Lib "User" (ByVal wType%)
Declare Function MessageBox Lib "User" (ByVal hWnd%,ByVal lpText As String,ByVal lpCaption As String,ByVal wType%) As Integer
Declare Function ModifyMenu Lib "User" (ByVal hMenu%,ByVal nPosition%,ByVal wFlags%,ByVal wIDNewItem%,ByVal lpString As Any) As Integer
Declare Function MoveTo Lib "GDI" (ByVal hDC%,ByVal X%,ByVal Y%) As Long
Declare Sub MoveWindow Lib "User" (ByVal hWnd%,ByVal X%,ByVal Y%,ByVal nWidth%,ByVal nHeight%,ByVal bRepaint%) 
Declare Function MulDiv Lib "GDI" (ByVal nNumber%,ByVal nNumerator%,ByVal nDenominator%) As Integer
Declare Function OemKeyScan Lib "Keyboard" (ByVal wOemChar%) As Long
Declare Function OemToAnsi Lib "Keyboard" (ByVal lpOemStr As String,ByVal lpAnsiStr As String) As Integer
Declare Sub OemToAnsiBuff Lib "Keyboard" (ByVal lpOemStr As String,ByVal lpAnsiStr As String,ByVal nLength as Integer)
Declare Function OffsetClipRgn Lib "GDI" (ByVal hDC%,ByVal X%,ByVal Y%) As Integer
Declare Sub OffsetRect Lib "User" (lpRect As RECT,ByVal X%,ByVal Y%)
Declare Function OffsetRgn Lib "GDI" (ByVal hRgn%,ByVal X%,ByVal Y%) As Integer
Declare Function OffsetViewportOrg Lib "GDI" (ByVal hDC%,ByVal X%,ByVal Y%) As Long
Declare Function OffsetWindowOrg Lib "GDI" (ByVal hDC%,ByVal X%,ByVal Y%) As Long
Declare Function OpenClipboard Lib "User" (ByVal hWnd%) As Integer
Declare Function OpenComm Lib "User" (ByVal lpComName As String,ByVal wInQueue%,ByVal wOutQueue%) As Integer
Declare Function OpenFile Lib "Kernel" (ByVal lpFileName As String,lpReOpenBuff As OFSTRUCT,ByVal wStyle%) As Integer
Declare Function OpenIcon Lib "User" (ByVal hWnd%) As Integer
Declare Function OpenSound Lib "Sound" () As Integer
Declare Sub OutputDebugString Lib "Kernel" (ByVal lpOutputString As String)
Declare Function PaintRgn Lib "User" (ByVal hDC%,ByVal hRgn%) As Integer
Declare Function PatBlt Lib "GDI" (ByVal hDC%,ByVal X%,ByVal Y%,ByVal nWidth%,ByVal nHeight%,ByVal dwRop As Long) As Integer
Declare Function PeekMessage Lib "User" (lpMsg As MSG,ByVal hWnd%,ByVal wMsgFilterMin%,ByVal wMsgFilterMax%,ByVal wRemoveMsg%) As Integer
Declare Function Pie Lib "GDI" (ByVal hDC%,ByVal X1%,ByVal Y1%,ByVal X2%,ByVal Y2%,ByVal X3%, ByVal Y3%, ByVal X4%, ByVal Y4%) As Integer
Declare Function PlayMetaFile Lib "GDI" (ByVal hDC%,ByVal hMF%) As Integer
Declare Sub PlayMetaFileRecord Lib "GDI" (ByVal hDC%,lpHandletable%,lpMetaRecord As METARECORD,ByVal nHandles%)
Declare Function Polygon Lib "GDI" (ByVal hDC%,lpPoints As APIPOINT,ByVal nCount%) As Integer
Declare Function Polyline Lib "GDI" (ByVal hDC%,lpPoints As APIPOINT,ByVal nCount%) As Integer
Declare Function PolyPolygon Lib "GDI" (ByVal hDC%,lpPoints As APIPOINT,lpPolyCounts%,ByVal nCount%) As Intege
Declare Function PostAppMessage Lib "User" (ByVal hTask%,ByVal wMsg%,ByVal wParam%,lParam As Any) As Integer
Declare Function PostMessage Lib "User" (ByVal hWnd%,ByVal wMsg%,ByVal wParam%,lParam As Any) As Integer
Declare Sub PostQuitMessage Lib "User" (ByVal nExitCode%)
Declare Sub ProfClear Lib "User" ()
Declare Sub ProfFinish Lib "User" ()
Declare Sub ProfFlush Lib "User" ()
Declare Function ProfInsChk Lib "User" () As Integer
Declare Sub ProfSampRate Lib "User" (ByVal nRate286%,ByVal nRate386%)
Declare Sub ProfSetup Lib "User" (ByVal nBufferSize%,ByVal nSamples%)
Declare Sub ProfStart Lib "User" ()
Declare Sub ProfStop Lib "User" ()
Declare Function PtInRect Lib "User" (lpRect As RECT,ByVal APIPoint As Any) As Integer
Declare Function PtInRegion Lib "User" (ByVal hRgn%,ByVal X%,ByVal Y%) As Integer
Declare Function PtVisible Lib "GDI" (ByVal hDC%,ByVal X%,ByVal Y%) As Integer
Declare Function ReadComm Lib "User" (ByVal nCid%,ByVal lpBuf As String,ByVal nSize%) As Integer
Declare Function RealizePalette Lib "GDI" (ByVal hDC%) As Integer
Declare Function Rectangle Lib "GDI" (ByVal hDC%,ByVal X1%,ByVal Y1%,ByVal X2%,ByVal Y2%)
Declare Function RectInRegion Lib "User" (ByVal hRgn%,lpRect As RECT) As Integer
Declare Function RectVisible Lib "User" (ByVal hDC%,lpRect As RECT) As Integer
Declare Function RegisterClipboardFormat Lib "User" (ByVal lpString As String) As Integer
Declare Function RegisterWindowMessage Lib "User" (ByVal lpString As String) As Integer
Declare Sub ReleaseCapture Lib "User" ()
Declare Function ReleaseDC Lib "GDI" (ByVal hWnd%,ByVal hDC%) As Integer
Declare Function RemoveFontResource Lib "GDI" (ByVal lpFilename As Any) As Integer
Declare Function RemoveMenu Lib "User" (ByVal hMenu%,ByVal nPosition%,ByVal wFlags%) As Integer
Declare Function RemoveProp Lib "User" (ByVal hWnd%,ByVal lpString As String) As Integer
Declare Sub ReplyMessage Lib "User" (ByVal lReply&)
Declare Function ResizePalette Lib "GDI" (ByVal hPalette%,ByVal nNumEntries%) As Integer
Declare Function RestoreDC Lib "GDI" (ByVal hDC%,ByVal nSavedDC%) As Integer
Declare Function RoundRect Lib "GDI" (ByVal hDC%,ByVal X1%,ByVal Y1%,ByVal X2%,ByVal Y2%,ByVal X3%, ByVal Y3%) As Integer
Declare Function SaveDC Lib "GDI" (ByVal hDC%) As Integer
Declare Function ScaleViewportExt Lib "GDI" (ByVal hDC%,ByVal Xnum%,ByVal Xdenom%,ByVal Ynum%,ByVal Ydenom) As Long
Declare Function ScaleWindowExt Lib "GDI" (ByVal hDC%,ByVal Xnum%,ByVal Xdenom%,ByVal Ynum%,ByVal Ydenom%) As Long
Declare Sub ScreenToClient Lib "User" (ByVal hWnd%,lpPoint As APIPOINT)
Declare Function ScrollDC Lib "User" (ByVal hDC%,ByVal dx%,ByVal dy%,lprcScroll As RECT,lprcClip As RECT,ByVal hRgnUpdate%,lprcUpdate As RECT) As Integer
Declare Sub ScrollWindow Lib "User" (ByVal hWnd%,ByVal XAmount%,ByVal YAmount%,lpRect As RECT,lpClipRect As RECT)
Declare Function SelectClipRgn Lib "GDI" (ByVal hDC%,ByVal hRgn%) As Integer
Declare Function SelectObject Lib "GDI" (ByVal hDC%,ByVal hObject%) As Integer
Declare Function SelectPalette Lib "GDI" (ByVal hDC%,ByVal hPalette as Integer,ByVal bForceBackground as Integer) As Integer
Declare Function SendMessage Lib "User" (ByVal hWnd%,ByVal wMsg%,ByVal wParam%,lParam As Any) As Long
Declare Function SetActiveWindow Lib "User" (ByVal hWnd%) As Integer
Declare Function SetBitmapBits Lib "GDI" (ByVal hBitmap%,ByVal dwCount&,ByVal lpBits As Any) As Long
Declare Function SetBitmapDimension Lib "GDI" (ByVal hBitmap%,ByVal X%,ByVal Y%) As Long
Declare Function SetBkColor Lib "GDI" (ByVal hDC%,ByVal crColor&) As Long
Declare Function SetBkMode Lib "GDI" (ByVal hDC%,ByVal nBkMode%) As Integer
Declare Function SetBrushOrg Lib "GDI" (ByVal hDC%,ByVal X%,ByVal Y%) As Long
Declare Function SetCapture Lib "User" (ByVal hWnd%) As Integer
Declare Sub SetCaretBlinkTime Lib "User" (ByVal wMSeconds%)
Declare Sub SetCaretPos Lib "User" (ByVal X%,ByVal Y%)
Declare Function SetClassLong Lib "User" (ByVal hWnd%,ByVal nIndex%,ByVal dwNewLong&) As Long
Declare Function SetClassWord Lib "User" (ByVal hWnd%,ByVal nIndex%,ByVal wNewWord%) As Integer
Declare Function SetClipboardData Lib "User" (ByVal wFormat%,ByVal hMem%) As Integer
Declare Function SetClipboardViewer Lib "User" (ByVal hWnd%) As Integer
Declare Function SetCommBreak Lib "User" (ByVal nCid%) As Integer
Declare Function SetCommEventMask Lib "User" (ByVal nCid%,ByVal nEvtMask%) As Long
Declare Function SetCommState Lib "User" (lpDCB As Dcb) As Integer
Declare Function SetCursor Lib "User" (ByVal hCursor%) As Integer
Declare Sub SetCursorPos Lib "User" (ByVal X%,ByVal Y%)
Declare Function SetDIBits Lib "GDI" (ByVal aHDC%,ByVal hBitmap%,ByVal nStartScan%,ByVal nNumScans%,ByVal lpBits As String,lpBI As BITMAPINFO,ByVal wUsage%) As Integer
Declare Function SetDIBitsToDevice% Lib "GDI" (ByVal hDC#,ByVal X#,ByVal Y#,ByVal dX#,ByVal dY#,ByVal SrcX#,ByVal SrcY#,ByVal Scan#,ByVal NumScans#, ByVal Bits As String, BitsInfo As BITMAPINFO, ByVal wUsage#)
Declare Sub SetDlgItemInt Lib "User" (ByVal hDlg%,ByVal nIDDlgItem%,ByVal wValue%,ByVal bSigned%)
Declare Sub SetDlgItemText Lib "User" (ByVal hDlg%,ByVal nIDDlgItem%,ByVal lpString As String)
Declare Sub SetDoubleClickTime Lib "User" (ByVal wCount%)
Declare Function SetEnvironment Lib "GDI" (ByVal lpPortName As String,ByVal lpEnviron As String,ByVal nCount%) As Integer
Declare Function SetErrorMode Lib "Kernel" (ByVal wMode%) As Integer
Declare Function SetFocusAPI Lib "User" (ByVal hWnd%) As Integer
Declare Function SetHandleCount Lib "Kernel" (ByVal wNumber%) As Integer
Declare Sub SetKeyboardState Lib "User" (lpKeyState As Any)
Declare Function SetMapMode Lib "GDI" (ByVal hDC%,ByVal nMapMode%) As Integer
Declare Function SetMapperFlags Lib "GDI" (ByVal hDC%,ByVal dwFlag&) As Long
Declare Function SetMenu Lib "User" (ByVal hWnd%,ByVal hMenu%) As Integer
Declare Function SetMenuItemBitmaps Lib "User" (ByVal hMenu%,ByVal nPosition%,ByVal wFlags%,ByVal hBitmapUnchecked%,ByVal hBitmapChecked%) As Integer
Declare Function SetMessageQueue Lib "User" (ByVal cMsg%) As Integer
Declare Function SetMetaFileBits Lib "GDI" (ByVal hMem%) As Integer
Declare Function SetPaletteEntries Lib "GDI" (ByVal hPalette%,ByVal wStartIndex%,ByVal wNumEntries%,lpPaletteEntries As PALETTEENTRY) As Integer
Declare Function SetParent Lib "User" (ByVal hWndChild%,ByVal hWndNewParent%) As Integer
Declare Function SetPixel Lib "GDI" (ByVal hDC%,ByVal X%,ByVal Y%,ByVal crColor&) As Long
Declare Function SetPolyFillMode Lib "GDI" (ByVal hDC%,ByVal nPolyFillMode%) As Integer
Declare Function SetProp Lib "User" (ByVal hWnd%,ByVal lpString As String,ByVal hData%) As Integer
Declare Sub SetRect Lib "User" (lpRect As RECT,ByVal X1%,ByVal Y1%,ByVal X2%,ByVal Y2%)
Declare Sub SetRectEmpty Lib "User" (lpRect As RECT)
Declare Sub SetRectRgn Lib "GDI" (ByVal hRgn%,ByVal X1%,ByVal Y1%,ByVal X2%,ByVal Y2 As Inte)
Declare Function SetROP2 Lib "GDI" (ByVal hDC%,ByVal nDrawMode%) As Integer
Declare Function SetScrollPos Lib "User" (ByVal hWnd%,ByVal nBar%,ByVal nPos%,ByVal bRedraw%) As Int
Declare Sub SetScrollRange Lib "User" (ByVal hWnd%,ByVal nBar%,ByVal nMinPos%,ByVal nMaxPos%,ByVal bRedraw%)
Declare Function SetSoundNoise Lib "Sound" (ByVal nSource%,ByVal nDuration%) As Integer
Declare Function SetStretchBltMode Lib "GDI" (ByVal hDC%,ByVal nStretchMode%) As Integer
Declare Function SetSwapAreaSize Lib "Kernel" (ByVal rsSize%) As Long
Declare Sub SetSysColors Lib "User" (ByVal nChanges%,lpSysColor%,lpColorValues&)
Declare Function SetSysModalWindow Lib "User" (ByVal hWnd%) As Integer
Declare Function SetSystemPaletteUse Lib "GDI" (ByVal hDC%,ByVal wUsage%) As Integer
Declare Function SetTextAlign Lib "GDI" (ByVal hDC%,ByVal wFlags%) As Integer
Declare Function SetTextCharacterExtra Lib "GDI" (ByVal hDC%,ByVal nCharExtra%) As Integer
Declare Function SetTextColor Lib "GDI" (ByVal hDC%,ByVal crColor&) As Long
Declare Function SetTextJustification Lib "GDI" (ByVal hDC%,ByVal nBreakExtra%,ByVal nBreakCount%) As Integer
Declare Function SetViewportExt Lib "GDI" (ByVal hDC%,ByVal X%,ByVal Y%) As Long
Declare Function SetViewportOrg Lib "GDI" (ByVal hDC%,ByVal X%,ByVal Y%) As Long
Declare Function SetVoiceAccent Lib "Sound" (ByVal nVoice%,ByVal nTempo%,ByVal nVolume%,ByVal nMode%,ByVal nPitch%) As Integer
Declare Function SetVoiceEnvelope Lib "Sound" (ByVal nVoice%,ByVal nShape%,ByVal nRepeat%) As Integer
Declare Function SetVoiceNote Lib "Sound" (ByVal nVoice%,ByVal nValue%,ByVal nLength%,ByVal nCdots%) As Integer
Declare Function SetVoiceQueueSize Lib "Sound" (ByVal nVoice%,ByVal nBytes%) As Integer
Declare Function SetVoiceSound Lib "Sound" (ByVal nVoice%,ByVal lFrequency&,ByVal nDuration%) As Integer
Declare Function SetVoiceThreshold Lib "Sound" (ByVal nVoice%,ByVal nNotes%) As Integer
Declare Function SetWindowExt Lib "GDI" (ByVal hDC%,ByVal X%,ByVal Y%) As Long
Declare Function SetWindowLong Lib "User" (ByVal hWnd%,ByVal nIndex%,ByVal dwNewLong&) As Long
Declare Function SetWindowOrg Lib "GDI" (ByVal hDC%,ByVal X%,ByVal Y%) As Long
Declare Sub SetWindowPos Lib "User" (ByVal hWnd%,ByVal hWndInsertAfter%,ByVal X%,ByVal Y%,ByVal cx%,ByVal cy%,ByVal wFlags%)
Declare Sub SetWindowText Lib "User" (ByVal hWnd%,ByVal lpString As String)
Declare Function SetWindowWord Lib "User" (ByVal hWnd%,ByVal nIndex%,ByVal wNewWord%) As Integer
Declare Sub ShowCaret Lib "User" (ByVal hWnd%)
Declare Function ShowCursor Lib "User" (ByVal bShow%) As Integer
Declare Sub ShowOwnedPopups Lib "User" (ByVal hWnd%,ByVal fShow%)
Declare Sub ShowScrollBar Lib "User" (ByVal hWnd%,ByVal wBar%,ByVal bShow%)
Declare Function ShowWindow Lib "User" (ByVal hWnd%,ByVal nCmdShow%) As Integer
Declare Function SizeofResource Lib "Kernel" (ByVal hInstance%,ByVal hResInfo%) As Integer
Declare Function StartSound Lib "Sound" () As Integer
Declare Function StopSound Lib "Sound" () As Integer
Declare Function StretchBlt% Lib "GDI" (ByVal hDC%,ByVal X%,ByVal Y%,ByVal nWidth%,ByVal nHeight%,ByVal hSrcDC%,ByVal XSrc%,ByVal YSrc%,ByVal nSrcWidth%,ByVal nSrcHeight%,ByVal dwRop&)
Declare Function StretchDIBits# Lib "GDI" (ByVal hDC#,ByVal X#,ByVal Y#,ByVal dX#,ByVal dY#,ByVal SrcX#,ByVal SrcY#,ByVal wSWih#,, ByVal wSHig#,ByVal lpBit As String,lpBInf As BITMAPINFO,ByVal wUsage#,ByVal dwRop&)
Declare Function SwapMouseButton Lib "User" (ByVal bSwap%) As Integer
Declare Sub SwapRecording Lib "Kernel" (ByVal wFlag%)
Declare Sub SwitchStackBack Lib "Kernel" ()
Declare Sub SwitchStackTo Lib "Kernel" (ByVal wStackSegment%,ByVal wStackPointer%,ByVal wStackTop%)
Declare Function SyncAllVoices Lib "Sound" () As Integer
Declare Function TabbedTextOut Lib "GDI" (ByVal hDC%,ByVal X%,ByVal Y%,ByVal lpString As String,ByVal nCount%,ByVal nTabPositions%,ByVal lpnTabStopPositions%,ByVal nTabOrigin%) As Long
Declare Function TextOut Lib "GDI" (ByVal hDC%,ByVal X%,ByVal Y%,ByVal lpString As String,ByVal nCount%,lpDx As Any) As Integer
Declare Sub Throw Lib "Kernel" (lpCatchBuf As Any,ByVal nThrowBack%)
Declare Function ToAscii Lib "Keyboard" (ByVal wVirtKey%,ByVal wScanCode%,lpKeyState As Any,lpChar As Any,Byval wFlags%) As Integer
Declare Function TrackPopupMenu Lib "User" (ByVal hMenu%,ByVal wFlags%,ByVal x%,ByVal y%,ByVal nReserved%,ByVal hWnd%,lpReserved As Any) As Integer
Declare Function TranslateAccelerator Lib "User" (ByVal hWnd%,ByVal hAccTable%,lpMsg As MSG) As Integer
Declare Function TranslateMDISysAccel Lib "User" (ByVal hWndClient%,lpMsg As MSG) As Integer
Declare Function TranslateMessage Lib "User" (lpMsg As MSG) As Integer
Declare Function TransmitCommChar Lib "User" (ByVal nCid%,ByVal cChar%) As Integer
Declare Function UngetCommChar Lib "User" (ByVal nCid%,ByVal cChar%) As Integer
Declare Function UnionRect Lib "User" (lpDestRect As RECT,lpSrc1Rect As RECT,lpSrc2Rect As RECT) As Integer
Declare Function UnlockResource Lib "Kernel" Alias "GlobalUnlock" (ByVal hMem%) As Integer
Declare Function UnlockSegment Lib "Kernel" (ByVal wSegment%) As Integer
Declare Function UnrealizeObject Lib "GDI" (ByVal hObject%) As Integer
Declare Function UnregisterClass Lib "User" (ByVal lpClassName As String,ByVal hInstance%) As Integer
Declare Function UpdateColors Lib "GDI" (ByVal hDC%) As Integer
Declare Sub UpdateWindow Lib "User" (ByVal hWnd%)
Declare Sub ValidateCodeSegments Lib "Kernel" ()
Declare Function ValidateFreeSpaces Lib "Kernel" () As Long
Declare Sub ValidateRect Lib "User" (ByVal hWnd%,lpRect As RECT)
Declare Sub ValidateRgn Lib "User" (ByVal hWnd%,ByVal hRgn%)
Declare Function VkKeyScan Lib "Keyboard" (ByVal cChar%) As Integer
Declare Sub WaitMessage Lib "User" ()
Declare Function WaitSoundState Lib "Sound" (ByVal nState%) As Integer
Declare Function WindowFromPoint Lib "User" (ByVal APIPoint As Any) As Integer
Declare Function WinExec Lib "Kernel" (ByVal lpCmdLine As String,ByVal nCmdShow%) As Integer
Declare Function WinHelp Lib "User" (ByVal hWnd%,ByVal lpHelpFile As String,ByVal wCommand%,dwData As Any) As Integer
Declare Function WriteComm Lib "User" (ByVal nCid%,ByVal lpBuf As String,ByVal nSize%) As Integer
Declare Function WritePrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String,ByVal lpKeyName As String,ByVal lpString As String, ByVal lpFileName As String) As Integer
Declare Function WriteProfileString Lib "Kernel" (ByVal lpApplicationName As String,ByVal lpKeyName As String,ByVal lpString As String) As Integer
Declare Function wvsprintf Lib "User" (ByVal lpOutput As String,ByVal lpFormat As String,lpArglist%) As Integer
Declare Sub Yield Lib "Kernel" ()


        ŌE  LЍ]\tgItBX
        Copyright Etosoftoffice Co.,LTD. 1992/07/01



