[TWINBASIC] Temporizzare il caricamento di immagini dinamiche da cartella desiderata

[freetom]

Private Sub Command1_Click()

   Dim i As Long

   numerodifiles = File1.ListCount

   For i = 0 To File1.ListCount

      filename = File1.List(File1.ListIndex)


      Print i
      Print "                            " & File1.List(0)
      Print "                            " & File1.List(1)

   Next

   Dim y As Long

   For y = 0 To File1.ListCount - 1
     
 elencafile.Text = elencafile.Text + vbCrLf + File1.Path & File1.List(y)

      Image1.Picture = LoadPicture(File1.Path & File1.List(y))


      'Call Rallenta


   Next y
End Sub


Private Sub Rallenta()
   Dim secondidipausavoluti As Integer
   secondidipausavoluti = 5
   Dim Pausa As Long
   Dim Controllo As Long
   Pausa = Timer + secondidipausavoluti
   Do While Controllo < Pausa
      Controllo = Timer
   Loop
End Sub

Dovrei mettere un rallentamento tra il caricamento di un'immagine e l'altra perchè adesso in meno di un secondo le carica tutte e arriva all'ultima mentre vorrei avere almeno 5 secondi tra una e l'altra immagine caricata o ancora meglio vorrei poter scegliere la durata della pausa tra il caricamento delle immagini in sequenza. Al momento la sub Rallenta mi fa solo aspettare i secondi impostati prima di avere lo stesso caricamento veloce errato...

Grazie