Bonjour et joyeux Noël à vous
Je vous sollicite pour résoudre un problème. Je dois faire un code qui fait déplacer une fenêtre sur l'écran de gauche à droite et qui s'arrête à une certaine distance que je spécifie.
J'ai essayé ce code, mais il plante

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Left = 0
        Me.Top = 0
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Timer1.Interval = 50
        Do
            Me.Timer1.Enabled = True
        Loop While Me.Left < 200
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Left = Me.Left + 5
 
    End Sub
End Class
pouvez-vous m'expliquer pourquoi?