سوال در مورد تکس باکس

[Snoopboy]

من یک برنامه نوشتم که به ایدی در یاهو Pm ارسال میکنه . حالا می خوام چندتا تکست باکس رو بزارم که بر اساس ثانیه به ترتین مثلا Text1 بعد 20 ثانیه text2 و همینطوری ازسال کنه . میشه کمکم کنید؟:قلب:

[hamed72]

سلام شما میتونید از یک INPUTBOX به عنوان دریافت ثانیه استفاده کنید یا از یک کنترل تایمر مثلا
private sub form_load ()

TIMER1.INTERVAL=20000
end sub

private sub timer1.timer
text1.text=send file
end sub

[Snoopboy]

بله . من خودم . می تونم این طوری بنویسم . این کد شما مربوط به زمتنیه که یک تکست باکس باشه . من می خوام که مثلا 5 تا تکست باکس بگذارم و هر 20 ثانیه 1 نکست باکس ارسال بشه

[hamed72]

این کد رو امتحان کن شاید جواب داد
کد مربوط به جنرال :
dim s as long

کد مربوط به فرم :
s=0
کد مربوط به تایمر(اینتروال 20000)
s=s+1
if s=6 then s=0
if s=1 then text1.text=sendfile
if s=2 then text2.text=sendfile
if s=3 then tex3.text=sendfile
if s=4 then text4.text=sendfile
if s=5 then text5.text=sendfile
if s=6 then s=0

[kooroush]

اگه بتونم برنامتونو ببینم می تونم یک کارایی واستون بکنم . لطفا ظمیمه اش کنید .:متفکر: