RoMeO adlı üyeden alıntı: mesajı görüntüle
Birde sıfır gelmemesi lazım
dim a as integer
Randomize
a = Rnd * 39
Text6 = a+1
End Sub

bole yaparsanız olur