Incrémenter une valeur

Bonjour, je voudrais incrémenter une valeur en continue à partir de ce code avec un Form, un label et une image :

1. Dim Ycapture As Integer
2. Dim variation As Integer
3. Private Sub Form_Load()
4.     Ycapture = -1
5. End Sub
6. Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
7.     If Button = 1 Then Ycapture = Y
8. End Sub
9. Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
10.     Const en_degre = 180 / 3.141592
11.     Dim angle As Integer
12.     If Ycapture = -1 Then Exit Sub
13.     If X <> 0 And Y <> 0 Then angle = (Atn(X / Y) * en_degre) + 90
14.     If Y < 0 Then angle = (180 + angle)
15.     variation = angle
16. End Sub
17. Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
18.     Ycapture = -1
19. End Sub
20. Private Sub Timer1_Timer()
21.     Label1.Caption = variation
22. End Sub

Lorque je clique sur l'image et que je la fait tourner dans le sens des aiguilles d'une montre, mon label affiche une valeur entre 0 et 360. Mais moi je voudrais que ca ne revienne pas à 0 tout le temps. Idem quand je la fait tourner dans le sens contraire des aguilles d'une montre. Je voudrais que cela affiche -1, -2, -3, -4, ..., -200, ...
Comment faire ?

Merci de votre aide.

Salut
Je pense qu'il te suffit de dimensionner Angle dans la partie déclarations afin qu'il conserve sa valeur.
+
angle = (Atn(X / Y) * en_degre) + 90 - Angle

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

---

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Bonjour jack, la réponse que tu m'a donné ne fonctionne pas. J'ai une valeur complétement erronée (desfois negative desfois positive). Ca n'incremente pas dutout.
J'ai pourtant bin declarer angle au tout debut du code et faire angle = (Atn(X / Y) * en_degre) + 90 - Angle comme tu m'a dit.

J'ai recorriger le code. Le voici :

1. Dim Ycapture As Integer
2. Dim variation As Integer
3. Dim angle As Integer
4. Private Sub Form_Load()
5.     Ycapture = -1
6.     Form1.ScaleMode = 3
7.     With Picture1
8.         .ScaleMode = 0
9.         .ScaleHeight = -200
10.         .ScaleLeft = -100
11.         .ScaleTop = 100
12.         .ScaleWidth = 200
13.     End With
14. End Sub
15. Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
16.     If Button = 1 Then Ycapture = Y
17. End Sub
18. Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
19.     Const en_degre = 180 / 3.141592
20.    
21.     If Ycapture = -1 Then Exit Sub
22.     If X <> 0 And Y <> 0 Then angle = (Atn(X / Y) * en_degre) + 90
23.     If Y < 0 Then angle = (180 + angle)
24.     variation = angle
25. End Sub
26. Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
27.     Ycapture = -1
28. End Sub
29. Private Sub Timer1_Timer()
30.     Label1.Caption = variation
31. End Sub

Je n'arrive toujours pas à continuer au delà de 360 et en dessous de 0.
Comment faire ? Une idée ?