Interrompere un ciclo

[x69asterix]

l'unico modo per interrompere il ciclo è in questo modo:

Private Sub Image1_Click()
Dim imgsel As Boolean
imgsel = True 'ma imgsel a cosa deve essere uguale ? 
End Sub
Private Sub XPButton3_Click()

For i = 0 To File1.ListCount
DoEvents
Image1.Picture = LoadPicture(File1.Path & "\" & File1.List(i))
File1.ListIndex = File1.ListIndex + 1
   if  imgsel = True Then Exit For 
 Next
Close

End Sub

però mi è impossibile farlo ripartire