Private Declare Auto Function SHGetFileInfo Lib "shell32.dll" ( _
  ByVal pszPath As String, _
  ByVal dwFileAttributes As Integer, _
  ByRef psfi As SHFILEINFO, _
  ByVal cbFileInfo As Integer, _
  ByVal uFlags As Integer) As IntPtr