Imports System.Runtime.InteropServices
Public Class Form1
    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 Form1_Load(ByVal sender As System.Object, ByVal e As _
        System.EventArgs) Handles MyBase.Load
        Me.SetBounds(50, 50, 490, 540)
    End Sub
 
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim hinst As IntPtr = Marshal.GetHINSTANCE( _
        Reflection.Assembly.GetExecutingAssembly.GetModules()(0))
        Dim x, y As Int32
        For i As Int32 = 0 To ExtractIcon(hinst, "shell32.dll", -1).ToInt32 - 1
            y = i \ 15
            x = i - y * 15
            e.Graphics.DrawImage(Bitmap.FromHicon(ExtractIcon(hinst, _
              "shell32.dll", i)), x * 32, y * 32)
        Next
    End Sub
End Class