Extending Timer range

I am using a Timer in a project, but the interval for that control only lasts just over 1 minute and I need up to 30 minutes of time! Any suggestions on how to make a timer for up to 30 minutes?

Thanks!

Jeff

One very simple way: Set your timer's interval to 1 and use this as your code for it:

Code:

---

Static OldTime
If OldTime = "" Then OldTime = Time
If DateDiff("n", CDate(OldTime), Time) = 30 Then
    OldTime = ""
    MsgBox "30 Minutes has elapsed.", vbInformation, "Time"
    'Other code here....
End If

---