FileChoose

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