Function GetIcon(ByVal i As Integer, ByVal flags As Integer, ByRef picon As IntPtr) As Integer Function Remove(ByVal i As Integer) As Integer Function Draw(ByRef pimldp As IMAGELISTDRAWPARAMS) As Integer Function AddMasked(ByVal hbmImage As IntPtr, ByVal crMask As Integer, ByRef pi As Integer) As Integer

Function Replace(ByVal i As Integer, ByVal hbmImage As IntPtr, ByVal hbmMask As IntPtr) As Integer Function SetOverlayImage(ByVal iImage As Integer, ByVal iOverlay As Integer) As Integer Function ReplaceIcon(ByVal i As Integer, ByVal hicon As IntPtr, ByRef pi As Integer) As Integer

Function Add(ByVal hbmImage As IntPtr, ByVal hbmMask As IntPtr, ByRef pi As Integer) As Integer Public left, top, right, bottom As Integer Private Shared Function DestroyIcon(ByVal hIcon As IntPtr) As Boolean Private Shared Function SHGetFileInfoW( ByVal pszPath As String, ByVal dwFileAttributes As UInteger, ByRef psfi As SHFILEINFOW, ByVal cbFileInfo As Integer, ByVal uFlags As UInteger) As Integer Private Shared Function SHGetImageList(ByVal iImageList As Integer, ByRef riid As Guid, ByRef ppv As IImageList) As Integer Private Const FILE_ATTRIBUTE_NORMAL As UInteger = &H80 Private Const ILD_IMAGE As UInteger = &H20 Private Const ILD_TRANSPARENT As UInteger = &H1 Private Const SHGFI_SYSICONINDEX As UInteger = &H4000 Private Const SHGFI_ICON As UInteger = &H100 Here is one way to get the Small 16x16, Large 32x32, Extra Large 48x48, or Jumbo 256x256 icon from a file or folder using a similar method as Castorix31 has mentioned.

How to get icon for shortcut