Label in For-Schleife bei VB2010

Guten Morgen,
ich habe ein Problem mit der FOR-Schleife von VisualBasic2010.
Ich möchte bei Erreichen eines bestimmten Wertes der Laufvariablen diese 
bei einem Label anzeigen. Hier der Minimalcode (Rest schon entfernt!):

Public Class Form1
    Shared i As Short

    Private Sub Button1_Click(sender As System.Object, e As 
System.EventArgs) Handles Button1.Click
        For i = 0 To 100
            If i = 67 Then
                Label2.Text = "67"
            End If
            Debug.Print(i)
            System.Threading.Thread.Sleep(100)
        Next
    End Sub

End Class

Das Programm soll mir beim Erreichen von i=67 eine "67" ins Label2 
schreiben.
Die FOR-Schleife wird einfach mit dem Button1 gestartet.
Beim erreichen von 67 ist die Schrift im Label2 nur noch halb zu sehen 
und erst am Ende der Schleife steht im Label2 die 67 drin! Wenn ich in 
den Eigenschaften den Wert AutoSize auf False ändere bleibt zumindest 
die Schrift im Label2 bis zum Ende vollständig erhalten.
Warum???
Eigentlich wollte ich im Label2 den Wert von i beim Durchlauf anzeigen 
lassen.
Schönen Pfingstmontag noch
J.