Option Strict On
Option Explicit On
 
Imports System.Runtime.InteropServices
Imports System.Reflection
 
Public Class Form3
 
  Private Declare Auto Function ExtractIcon Lib "shell32.dll" ( _
  ByVal hInst As System.IntPtr, _
  ByVal lpszExeFileName As String, _
  ByVal nIconIndex As Integer) As System.IntPtr
 
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles Button1.Click
 
    Try
 
      Dim hIcon As System.IntPtr = ExtractIcon(Marshal.GetHINSTANCE( _
        Assembly.GetExecutingAssembly().GetModules()(0)), _
        "C:\windows\notepad.exe", 0)
      Me.PictureBox1.Image = Bitmap.FromHicon(hIcon)
 
    Catch ex As Exception
      MsgBox(ex.Message)
    End Try
 
  End Sub
End Class