Utility per visualizzare Icone, Per file con estensione EXE, DLL, OCX

Option Explicit
'*Dichiaro le variabile di programma.
Dim IconEx
Dim Estract
Dim XIndex As Long
'* Funzione API non documentata.
Private Declare Function SHChangeIconDialog Lib "shell32" Alias "#62" (ByVal hOnwer As Long, ByVal szFilename As String, ByVal Reserved As Long, lpIconIndex As Long) As Long

'* Visualizza le icone del file selezionato. Se il file non contiene icone visualizza SHELL32.DLL
Private Function DoIconDialog(ByVal sFile As String, ByVal nIndex As Long) As Long
   If SHChangeIconDialog(Me.hWnd, StrConv(sFile, vbUnicode), 0, nIndex) Then
       DoIconDialog = nIndex
   Else
       DoIconDialog = -1
   End If
End Function

Private Sub CmdExit_Click()
       Unload Me
End Sub

Private Sub CmdExtract_Click()
       XIndex = 1
       Estract = DoIconDialog(IconEx, XIndex) '* Chiama la funzione di estrazione Icone da dll, exe, ocx
End Sub

Private Sub Dir1_Change()
       File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
On Error GoTo ERR_HANDLER
       Dir1.Path = Drive1.Drive
Exit Sub
ERR_HANDLER:
       Drive1.Drive = Drive1.List(1)   '* Si presume che in caso di errore, nell'indice 1 ci sia l'unitą C:\
End Sub

Private Sub File1_Click()
If Len(File1.Path) = 3 Then
   IconEx = File1.Path & File1.FileName '* Se ci si trova in Root (percorso + nomefile)
Else
   IconEx = File1.Path & "\" & File1.FileName '* Altrimenti assegna lo slash inverso al percorso. (percorso + \ + nomefile)
End If
End Sub