home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1999 April / CD_Shareware_Magazine_31.iso / Free / Prg / GetIcon.exe / Module1.bas < prev   
Encoding:
BASIC Source File  |  1998-06-23  |  792 b   |  15 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3. 'dss
  4. 'Public Const DI_MASK = 1
  5. 'Public Const DI_IMAGE = 2
  6. 'Public Const DI_COMPAT = 4
  7. 'Public Const DI_DEFAULTSIZE = 8
  8. 'Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal Y As Long, ByVal hIcon As Long) As Long
  9. Public Const DI_NORMAL = 3
  10. Declare Function DrawIconEx Lib "user32" (ByVal hdc As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Long
  11.  
  12.  
  13. Declare Function ExtractIconEx Lib "shell32.dll" Alias "ExtractIconExA" (ByVal lpszFile As String, ByVal nIconIndex As Long, phiconLarge As Long, phiconSmall As Long, ByVal nIcons As Long) As Long
  14.  
  15.