Erreur dans une boucle (Visual Basic)

Bonjour,

Bonjour tout le monde ! :)

Je fais mes premiers pas dans le visual basic, et j'ai créé une petite boucle pour griser un bouton tant que le champ1 est vide :

Code Visual Basic :

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Button1.Enabled = False


Do Until TextBox1.Text.Length > 0

If TextBox1.Text.Length > 0 Then
Button1.Enabled = True
End If

Loop


End Sub

End Class



Mais lorsque je lance l'exécution, rien n'apparait à l'écran... je travaille avec visual basic 2010 Express.

Merci à tous !!