دوست عزیز می تونی از Timer استفاده کنی. خاصیت interval رو بر حسب میلی ثانیه تنظیم کن بعد از این مدت رویداد مورد نظرت رو که تو تابع شیء Timer نوشتی رو اجرا میکنه.
Private Sub Form_Load()
Timer1.Interval = 10000 '10sec
End Sub
Private Sub Timer1_Timer()
MsgBox "test"
End Sub
این برنامه بعد از اجرا هر 10 ثانیه یک بار یک MsgBox با متن Test رو نمایش میده
پاسخ با نقل قول