Interrompere un ciclo

[x69asterix]

allora con questo code faccio scorrere tutte le immagini presenti, come posso interrompere il ciclo al click dell' Image1.Picture, per poi riprenderlo?

Private Sub XPButton3_Click()
For i = 0 To File1.ListCount
DoEvents
Image1.Picture = LoadPicture(File1.Path & "\" & File1.List(i))
File1.ListIndex = File1.ListIndex + 1
Next
Close
End Sub