The Timer Control only goes just over a Minute, but you can use it with the Timer Function to wait any Interval you like, eg.
Code:
Private Sub Form_Load()
    'Set the Timer Control Interval to Less than a Minute
    'The Higher the Value the Less Accurate it generally becomes.
    Timer1.Interval = 1000
    Timer1_Timer
End Sub

Private Sub Timer1_Timer()
    Static tTimer As Single
    'Check the difference between tTimer and Timer
    'to get any Time Interval you want.
    If tTimer = 0 Then tTimer = Timer
    If (Timer - tTimer) >= 300 Then '5 Mins
        MsgBox "5 Minutes have passed."
        tTimer = Timer 'Reset for another 5 Mins
    End If
End Sub

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]