Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        For index As Integer = 1 To 50000
            Label1.Refresh()
            Label1.Text = (index.ToString & " ")
        Next
    End Sub
End Class