Как сделать вывод случайного числа каждую секунду?

Dim x As Boolean = False
        Do Until x = True
            Application.DoEvents()
            Randomize()
           Label.Text = Int((100 * Rnd()) + 1)
            If Label.Text = "100 " Then
                x = False
            End If
Loop

x = False

Timer1.enabled = false
MsgBox("100")

Timer1.Stop()

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = Int((100 * Rnd()) + 1)
        If Label1.Text = "100" Then Timer1.Stop()
    End Sub

If Label.Text = "100" Then

Dim x As Boolean = True
        Do While x = True
            Application.DoEvents()
            Threading.Thread.Sleep(1000)
            Randomize()
            Label1.Text = Int((100 * Rnd()) + 1)
            If Label1.Text = "100" Then
                x = False
            End If
        Loop