et n'accèpte pas "Me.Right = Me.Right + 5C'est pour ça qu'au début, j'ai écrit ce bout "de rien du tout" sans timer, sans do/loop (pour ce que stracoma voulait faire) ...Il existe toujours plusieurs méthodes , mais ta boucle ressemble à une usine à gaz (plus de 30 lignes) alors qu'avec le timer 4 lignes suffises
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 For i As Integer = Me.Location.X To (Screen.PrimaryScreen.Bounds.Width - Me.Width) Dim Emplac As Point = New Point(i, Me.Location.Y) : Me.Location = Emplac Threading.Thread.Sleep(1) Next
Partager