Generieren von Zufallszahlen mit Schleife im Intervall VB.NET

Question

Wie im Intervall zwischen 0-99 in der Titelleiste wie diese Zufallszahl-Schleife generieren: https://www.dropbox.com/s/n6cvxlpjzklys80/vb.gif

Ich bin in der Lage zu erzeugen Zufallszahl in der Menüleiste, aber nicht in der Lage zu Schleife sie in einem bestimmten Intervall.

Dim value As Integer = CInt(Int((99 * Rnd()) + 1)) 
Dim randomnumber As String = "My random no. between " & value.ToString 

Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load 

     Me.Text = randomnumber 

    End Sub 

Answer 1

ein Fenster hinzufügen bildet Timer zu Ihrem Projekt und diesen Code

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    Me.Timer1.Interval = 100 '10 per second 
    Me.Timer1.Start() 
End Sub 

Private Shared prng As New Random 
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick 
    Me.Text = "My random no. between " & prng.Next(100) 
End Sub