استخراج الأيقونات من الملفات التنفيذية - مكتبة أكواد VB.NET

Dim a As New OpenFileDialog
    Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As IntPtr, ByVal lpszExeFileName As String, ByVal nIconIndex As Integer) As IntPtr

    Private Sub opebtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles opebtn.Click
        namelbl.Text = "File name : " & a.FileName
        a.Filter = "Win32 PE Files (*.Exe,*.Dll,*.Scr,*.cpl)|*.exe;*.dll;*.scr;*.cpl"
        If a.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim Handler As IntPtr
            Handler = ExtractIcon(Me.Handle, a.FileName, -1)
            If Handler.ToInt32 = 0 Then
                MsgBox("No icon in this File sorry.....", MsgBoxStyle.Exclamation, "Error")
                Exit Sub
            End If
            total.Text = "Total icons : " & Handler.ToInt32
            img.Images.Clear()
            list.Items.Clear()
            Dim i As Integer
            i = Handler.ToInt32
            prog.Maximum = i

            For i = 1 To i
                Handler = ExtractIcon(Me.Handle, a.FileName, i - 1)
                img.Images.Add(i, System.Drawing.Icon.FromHandle(Handler))
                list.Items.Add("", Val(i - 1).ToString, i - 1)
                prog.Value = i
            Next
        End If