راهنمایی در مورد دستورات تایمر

سلام.لطف کنید تو چند تا مثال دستورات timer رو به کار ببرید.
و من چه جوری میتونم در from-load تایمر 1 رو بعد از 30 ثانیه فعال کنم

یک تایمر دگه بگذار تو فرم خودت و دستورات را بنویس که پس از 30 ثانیه تایمر بعدی فعال شود

سلام دوست عزیز ...
این یه مثال از timer ...
روی فرمت یک label و یک timer ایجاد کن .
و کد زیر رو توی فرمت قرار بده

کد:

---

Private Sub Form_Load()
Label1.Caption = "0"
Label1.AutoSize = True
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Label1.Caption + 1
End Sub

---

این کد مثل یه ثانیه شمار کار می کنه .یعنی هر 1 ثانیه 1 واحد به label1.caption اضافه می کنه ...
موفق باشی ...
:20:

دوست عزیز اون سوالی هم که پرسیدی که یک timer بعد از 30 ثانیه timer دیگری رو به کار بندازه جوابش اینه :
دو timer و یک label روی فرمت ایجاد کن ...

کد:

---

Private Sub Form_Load()
Label1.Visible = False
Timer2.Enabled = False
Label1.Caption = "0"
Label1.AutoSize = True
Timer1.Interval = 1000
Timer2.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Label1.Caption + 1
If Label1.Caption = "30" Then
Timer2.Enabled = True
Timer1.Enabled = False
End If
End Sub
Private Sub Timer2_Timer()
ÇíäÌÇ ˜ÇÑí ÑÇ ˜å ãí ÎæÇí ÊÇíãÑ 2 ÇäÌÇã ÈÏå ÈÇíÏ ÈäæíÓí
End Sub

---

البته چون من نمی دونم برای چه کاری می خوای اگه لازم شد باید توی کد بالا تغییراتی به وجود بیاری

اینم یه مثال :
دو timer و دو label روی فرمت ایجاد کن ...

کد:

---

Private Sub Form_Load()
Timer2.Enabled = False
Label1.Caption = "0"
Label2.Caption = "0"
Label1.AutoSize = True
Label2.AutoSize = True
Timer1.Interval = 1000
Timer2.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Label1.Caption + 1
If Label1.Caption = "5" Then
Timer2.Enabled = True
Timer1.Enabled = False
End If
End Sub
Private Sub Timer2_Timer()
Label2.Caption = Label2.Caption + 1
End Sub

---

این کد کاری می کنه که بعد از 5 ثانیه تایمر1 از کار بیفته و تایمر2 شروع به کار کنه و تایمر2 هم بعد از هر ثانیه یک واحد به label2.caption اضافه می کنه .
مــــــــــــــوفــــــــ ــــــق بـــــــــــــاشـــــــــ ــــی ...
:20: