Code:
    Private Sub Button1_Click() Handles Button1.Click
        Dim b As Double
        b = 0.02
        For i = 0 To 300
            Label1.Text = b
            Application.DoEvents()
            System.Threading.Thread.Sleep(300)
            b += 0.02
        Next i
    End Sub

Geht bei mir einwandfrei!