Hello,
 
Je souhaiterais qu'une action incrémentale se prolonge tant que la souris est enfoncée sur une image mais ca ne marche pas :
 
Private sub image1_MouseDown(...)
 
A=A+1
label1=A
 
end sub
 
Or label1 me donne 1 et s'arrête (au lieu de s'incrémenter)
 
Merci.
 

avec youpi en public as boolean
 
Private Sub image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
youpi = True
While youpi
Label1.Caption = Label1.Caption + 1
DoEvents
Wend
 
 
End Sub
 
Private Sub image11_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
youpi = False
End Sub
Cordialement