[Jonewickk]

السلام عليكم 

احتاج المساعدة العاجلة اخواني
لدي كود 

كود :

Dim RunAnim As Boolean
Dim Position As Long

On Error Resume Next
   Dim a As Integer
   RunAnim = True 'run
    Position = 0
For a = Position To LST.ListCount - 1
       LST.ListIndex = a
       txtemail.Text = LST.Text
     'فتح الموقع بالمتصفح الافتراضي
     OpenBrowser txtemail.Text
     Sleep 1000
           
     
       Position = (a + 1) Mod LST.ListCount
     
       DoEvents
       If RunAnim = False Then Exit For

'تحديد السرعة
  Sleep 1000
   Next a
 
   RunAnim = False

هذا الكود لبرنامج اقوم بأضافات مواقع في الـ list وهو يقوم بفتحها واحد ورا الأخر بالمتصفح الافتراضي الجهاز 
لكن المشكلة انا أريده ان يفتح كل موقع كل 20 دقيقة مثلا عند أستخدم sleep ولنقول sleep 60000 * 20  هذا الأمر سوف يقوم بالعمل 
لكن سوف يوقف عمل البرنامج بالكامل      
أحتاج ان استغمل تايمر في هذه العملية ... لكي يفتح كل موقع كل 20 دقيقه مثلا :

==============
والكود الاخر هو أريده ان يقفل الصفحة بعد دقيقتين مثلا ( 

أرجوو المساعدة يا أخواني :

وهذا  مثال مرفق