Forum resetlenmeden bir - iki dakika once mesajını gordum. Yanıt gonderirken de forum kapandı. Sen acmadan ben sana cevabını yazayım dedim.

Oncelikle Randomize komutunu ekle. Randomize rastgele sayı havuzunu oluşturan komut gibi bişey. Ardından Rnd komutunu kullan.

Private Sub Command1_Click()
Dim sayi As Integer
Randomize
sayi = Rnd * 10
MsgBox sayi
End Sub

Eğer gelen sayının bir daha gelmesini istemiyorsan gelen sayıları bir diziye veya gizli bir listeye at. Bir for dongusunde oluşan sayı eğer onceden cıkmış sayıların icinde varsa yeniden sallama sayı oluştur. Yoksa sayı ile yapacağını yap.

Kolay Gelsin.
__________________