Сначала добавьте таймер, ярлык, кнопку для вас. затем
В виде события Load инициализировать интервал таймера и запустить таймер
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 100 '=100 milli seconds
Timer1.Start()
End Sub
В случае клещевого таймер
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim xRandNo As Random = New Random
Label1.Text = xRandNo.Next() 'it will produce random number
End Sub
Остановить таймер на кнопку мыши
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSpin.Click
Timer1.Stop()
End Sub
@ user2874217 Следуйте приведенному выше коду. вы можете достичь своего результата – Haji