PUBLIC SUB Play_Click()
  'se STOPS = TRUE il pulsante play lo uso per importare un file
  'se la playlist è vuota importo comunque una canzone altrimenti quando premo play faccio partire la prima canzone della playlist
  IF ListBox1.List.Count = 0 THEN 
    Menu1_Click
  'può iniziare la riproduzione e il timer può partire
  ELSE 
    timMusic.Delay = 1000
    timMusic.Start
    PRINT "prima if: " & ListBox1.Index
    IF ListBox1.Index = -1 THEN 
      ListBox1.Index = 0
    ENDIF 
    PRINT "dopo if: " & ListBox1.Index
    'salvo l'indice della canzone attuale per evitare che venga modificato
    index = ListBox1.Index
    PRINT "index: " & index
    function.calculate_length(ListBox1.Text)
    PRINT "prima music.play: " & ListBox1.Index
    Music.Play
  ENDIF 
END

PUBLIC SUB calculate_length(audio AS String)
  DIM length, sini AS String
  DIM sx AS Integer
  'calcolo la durata della canzone e setto lo slider
  SHELL "mplayer -ao null -ss 24:00:00 -really-quiet -identify " & 
      Quote.Shell(audio) & " 2>&1 | grep ID_LENGTH | cut -f2 -d=" WAIT TO length
  sini = Left(length, InStr(length, ".") - 1)
  sx = Val(sini)
  sx = sx + 1
  FMain.sldPos.MaxValue = sx
END