Binaryworld - ShowIcon - Extract an icon from a file and show it ... [ VB -> Graphics ]

Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" _
  (ByVal hInst As Long, ByVal lpszExeFileName As String, _
  ByVal nIconIndex As Long) As Long
Private Declare Function DrawIcon Lib "user32" (ByVal hDC As Long, _
  ByVal X As Long, ByVal Y As Long, ByVal hIcon As Long) As Long

' Extract an icon from a file and display it on a Form or PictureBox
' (in general, any control that has the hDC property)
'
' Returns True if successful
'
' FILENAME is the file that contains the icon
' ICONINDEX is the number of the icon to extract from the file (zero-based)
' HDC is a valid Device Context handle
' X,Y are the coordinates in the picturebox where the icon should be displayed
'
' Example:
'  ' display the first icon in SHELL32.DLL
'  ShowIcon "C:\WINDOWS\SYSTEM\SHELL32.DLL", 0, Picture1.hDC, 0, 0

Function ShowIcon(ByVal FileName As String, ByVal iconIndex As Long, _
  ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Boolean
  Dim hIcon As Long
  ' extract the icon
  hIcon = ExtractIcon(App.hInstance, FileName, iconIndex)

  If hIcon Then
    ' if non null display it
    DrawIcon hDC, X, Y, hIcon
    ' signal success
    ShowIcon = True
  End If
End Sub