[معاند الحظ]

في الحقيقة بعد ردي السابق قمت بالبحث واتضح لي انها مشكلة تتعلق بتشغيل التايمر لوقت طويل جدا او وضع قيمة interval كبيرة جدا بحسب ماقرات
واعتقد ان الحل هو ياستخدام التايمر الموجود في فضاء الاسماء Timers.Timer والذي يختلف عن التايمر العادي بانه يحتوي على الحدث Elapsed بدلا من الحدث Tick

كود :

    Dim WithEvents tmr As New Timers.Timer

    Private Sub tmr_Elapsed(sender As Object, e As System.Timers.ElapsedEventArgs) Handles tmr.Elapsed
        'your code  here
    End Sub

وهذا هو احد الحلول المقدمة لاحد السائلين في  موقع stackoverflow والموجود هنا

كما يمكنك تصفح نتائج البحث بالعبارة التي استخدمتها للبحث في جوجل وهي is timer interval=1000 equal to 1 second