Yardım edermisiniz?

Kodla Büyü
A

astalavista23

Seçkin Üye
Seçkin Üye
Mesajlar
294
1-500 arasından bir sayıyı 5 saniyede rastgele çekerek ekrana büyükçe yazan bir çekiliş programı lazım. Kutlu doğum haftasında hediye çekilişi yapacağız. herkesin görmesini istiyorum.
 
Private Sub CommandButton1_Click()
Dim s As Integer
s = Rnd * 500 + 1
MsgBox ("çekiliş sahibinin numarası" & s)
End Sub


yukarıdaki kodları command buttonun içine yapıştır tamam hocam
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst