[FREKANS]

Function Bul(max as Interger) as Integer
randomize time
Bul=CInt(rnd*Max)
End Function

'Bu Fonksiyonu Kullanarak Rahat Rahat Farklı Sayılar Uretebilirsin
'Mesela
Private Sub CmdBul_Click()
MsgBox Bul(50)
End Sub