Private Sub Form_Load() ' 1 ile 10 arasında değişik bir tamsayı üretir random = Int(Rnd * 10) End Sub