Visual Basic

Declare Auto Function ExtractIcon Lib "shell32" ( _
    ByVal hInst As IntPtr, _
    ByVal lpszFilename As String, _
    ByVal nIconIndex As Integer) _
    As IntPtr
 
Declare Auto Function DestroyIcon Lib "user32" ( _
    ByVal hIcon As IntPtr) _
    As Integer
 
.
.
.
 
    Dim IconCount As Integer
    Dim hIcon As IntPtr
 
    ' Get the number of icons in the file.  I'm not going to use it here
    ' but it shows how to do it.  -1 tells ExtractIcon to return the number
    ' of icons in the file.
    hIcon = ExtractIcon(Me.Handle, filename, -1)
    IconCount = hIcon.ToInt32()
 
    ' Get the icon from the file into a Bitmap object.  Don't forget to
    ' release the icon handle when you're done with it!  iconNumber is a
    ' 0-based index into the array of icons in the file.
    hIcon = ExtractIcon(Me.Handle, filename, iconNumber)
    Dim b As Bitmap = Bitmap.FromHicon(hIcon)
    PictureBox1.Image = b
    DestroyIcon(hIcon)