اقتباس:
المشاركة الأصلية كتبت بواسطة hass****hawy
كود:
dim r_t as byte
textbox1.visible = false
textbox2.visible = false
textbox3.visible = false
textbox4.visible = false
textbox5.visible = false
randomize()
r_t = rnd() * 5
if r_t = 1 then textbox1.visible = true
if r_t = 2 then textbox2.visible = true
if r_t = 3 then textbox3.visible = true
if r_t = 4 then textbox4.visible = true
if r_t = 5 then textbox5.visible = true
|
بارك الله في اخي الفاضل حسن علي هذا االحل الرائع والمفسر