'Utilización de los controles DirListBox, DriveListBox y FileListBox

'Para ver el funcionamiento de este pequeño visor de iconos necesitamos colocar en un
'Form1 (default) los siguientes controles:

'1 Control DriveListBox
'1 Control DirListBox
'1 Control FileListBox
'1 Control Picture1
'1 Label1
'El Codigo a colocar es el siguiente:

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

        Private Sub Drive1_Change()
                Dir1.Path = Drive1.Drive
        End Sub

        Private Sub File1_Click()
            Picture1.Picture = LoadPicture(Dir1.Path & "/" & File1.FileName)
            Label1.Caption = "Icono Seleccionado: " & UCase$(File1.FilaName)
        End Sub

        Private Sub File1_PathChange()
            File1.FileName = "*.ICO"
        End Sub