t COLORONCOLOR = 3

' Shell Extract icon functions:
Private Declare Function FindExecutable Lib "shell32.dll" Alias
 "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal
 lpResult As String) As Long
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA"
 (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As
 Long) As Long

' Icon functions:
Private Declare Function DrawIcon Lib "USER32" (ByVal hdc As Long, ByVal x As
 Long, ByVal y As Long, 