Alıntı
Dim sayıüret As Integer
Randomize()
Label4.Text = sayıüret
Label4.Text = fix(Rnd() * 10)
Fix Sayıyı Duzleyecektir ....