Public Sub FileChooser1_Icon(ruta As String)
Dim miniatura As New Picture
Dim ima As New Image
Dim terminacion As String
If CheckBoxPrevisualizacion.Value = True Then
terminacion = Upper$(ModuleUtilidadesDisco.extraeExtension(ruta))
If terminacion = Upper$("PNG") Or terminacion = Upper$("JPG") Then
Exec ["convert", ruta, "-scale", "40x", "/tmp/miniatura.png"] Wait
fileChooser1.icon = Picture.Load("/tmp/miniatura.png")
Endif
Endif
End