ايجاد delay در برنامه و ريست كردن برنامه

[esmaeil21]

سلام دوستان
دو تا سوال داشتم ممنون ميشم به سوالاتم پاسخ بديد:
1- چطور ميشه در برنامه تاخير ايجاد كرد (بدون استفاده از تايمر). از تابع sleep استفاده كردم ولي سيستم هنگ ميكنه.
2- چطور ميشه برنامه رو ريست كرد يعني تمام المانها در برنامه ريست بشن (انگار كه برنامه رو تازه اجرا كردي) بدون بستن برنامه.
سپاسگزارم

[www.pc3enter.tk]

جواب 1

Private Declare Function SleepEx Lib "kernel32" (ByVal dwMilliseconds As Long, ByVal bAlertable As Long) As Long
Private Sub Form_Load()
'p3e-Team 2010
'URL: http://www.pc3enter.40s.ir/ (http://www.pc3enter.parsfa.com/)
'E-Mail: nazemi30@yahoo.com
'خاموشي 2 ثانيه
SleepEx 2000, False
End Sub

=========================================
جواب 2



Dim Form As New Form1
'p3e-Team 2010
'URL: http://www.pc3enter.40s.ir/
(http://www.pc3enter.parsfa.com/) 'E-Mail: nazemi30@yahoo.com
Unload Me
Form1.Show



تشکر یادت نره

وخداوند تشکر ا آفرید !!!!

[esmaeil21]

خيلي خيلي ممنون به خاطر پاسختون
آقا يك سوال:
چرا دستور SleepEx 2000, False رو وقتي در حلقه قرار ميدم سيستم هنگ ميكنه؟
به دستور زير توجه كنيد:

Private Sub Command1_Click()
do
text1.text="yes"

SleepEx 2000, False
text1.text="no"
SleepEx 2000, False
loop
endsub
مگه نبايد هر دو ثانيه يكبار متن تغيير كنه؟

[returnx]

بعد از Do از DoEvents استفاده کنید...
موفق باشید.../