Aggiungi una variabile esempio dim imgsel as boolean
sotto l'evento click dell'image inserisci
imgsel=true

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

exit for
imgsel=true
if MsgBox("Interrompere la misura ?", 20, "xxxx")=vbyes
then exit sub
end if


Next
Close
End Sub


prova.Lo scritto cosi' senza provarlo