ShowIcon - Extract an icon from a file and show it

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