اجراي اتوماتيك يك روال در ساعت مشخص؟

سلام
ميخوام با استفاده از ساعت سيستم يك يا چند روال از برنامه ام بطور اتوماتيك در زمان تعين شده اجرا بشن.در اين مورد هيچي نميدونم لطفا راهنمايي كنيد.متشكرم

اين نمونه كدي كه ميخواستي. راس ساعت 2 بعد از ظهر ماشين حساب باز ميشه.
اگه در حالت design يعني قبل ران كردن برنامه اينترول تايمرت رو ست كني ميتوني خط دوم فرم لود رو حذف كني.
اگه ميخواي برنامه دقيقا راس ساعت 2 كاري انجام بده همين اينترول 1000 مناسبه. هر 1 ثانيه چك ميكنه. ولي اگه ساعت دو 2:01 هم بشه مهم نباشه ميتوني اينترول 60000 بذاري كه هر در هر دقيقه 1 بار چك كنه. اين جوري بهتره چون كار كمتري از CPU كشيده ميشه. هر چند اجراي 1 خط كد در هر ثانيه فشاري به CPU نمياره. ولي من اگه باشم 60000 ميذارم.

کد:

---

Dim dteTimeOfRun As Date
Private Sub Form_Load()
    dteTimeOfRun = "2:00:00 PM"
    Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
    If dteTimeOfRun <= Time Then
        RunCalc
        Timer1.Interval = 0
    End If
End Sub
Private Sub RunCalc()
    Shell "Calc.exe"
End Sub

---