'Modul1
Sub Main()
FormMitLadeanzeige.show
fs.CopyFolder von , nach
...
Unload FormMitLadeanzeige
End Sub

'FormMitLadeanzeige
Private Sub Form_Load()
...
...
Call Timer1_Timer()
End Sub
 
Private Sub Timer1_Timer()
Do until i = 8 ' 8 Einzelbilder
...
If i = 8 then i = 1 ' Endlosschleife
End Sub