home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / icoxtr / global.bas < prev    next >
Encoding:
BASIC Source File  |  1995-05-09  |  640 b   |  11 lines
  1. ' Windows 3.1 shellapi function (see 3.1 Prg Ref Vol 1 & 2 for more info)
  2. Declare Function ExtractIcon Lib "shell.dll" (ByVal hInst As Integer, ByVal lpszExeName As String, ByVal iIcon As Integer) As Integer
  3. ' Windows 3.*
  4. Declare Function GetWindowWord Lib "User" (ByVal hWnd As Integer, ByVal nIndex As Integer) As Integer
  5. Declare Function SetMapMode Lib "GDI" (ByVal hDC As Integer, ByVal nMapMode As Integer) As Integer
  6. Declare Function DrawIcon Lib "User" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal hIcon As Integer) As Integer
  7. ' constants
  8. Global Const GWW_HINSTANCE = (-6)
  9. Global Const MM_TEXT = 1
  10.  
  11.