[جهيره سالم]

المشاركة الأصلية كتبت بواسطة الاستاذ خليل

بالمرفق العمل
تحتاج الى
label1
commandbutton1
commandbutton2



و هذا هو الكود

كود PHP:

dim starttime as boolean
private sub commandbutton1_click()
'label1
label1.caption = 0
starttime = true
dim start as long
for i = 1 to 30
    start = timer
    do while timer < start + 1 'a 3 second delay (change to any numer you want)

        doevents ' yield to other processes.
        Loop
if starttime = true then
label1.caption = val(label1.caption) + 1
else
exit sub
end if
next i
label1.caption = "انتهى الوقت"
end sub
private sub commandbutton2_click()
starttime = false
end sub 


الاستاذ خليل

السلام عليكم من وين تجيب هذي الاكواد ووشلون احط وقت ثاني لي ؟