كود لتوليد ارقام عشوائيه

[القيصر]

كود لتوليد ارقام عشوائيه اضف تايمر واربعه تكست بوكس وضع الكود التالى فى الفورم تحت التايمر تك وانظر للنتيجه حدد الانترفال للتايمر كما تحب
​


كود:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim R As New Random
Randomize()
Dim Number As Integer
Number = R.Next(20, 105)
‘ MsgBox(Number)
TextBox1.Text = Number
TextBox2.Text = Number
TextBox3.Text = Number
TextBox4.Text = Number
End Sub