How to make a reminder

[clint]

can you please help me how to make a reminder? i mean poping up a message on a specific date and time. regards

Put the following code in a Timer and set it's interval to 1.

Private Sub Timer1_Timer()

'Check if the date is the specified date
tDate = Format(Date, "dd/mm/yyyy")
If tDate = "10/08/2000" Then
'Check if the time is the specified time
tTime = Format(Time, "hh:mm:ss")
'If so, then display a MessageBox
If tTime = "09:24:00" Then MsgBox ("Reminder")
End If

End Sub

[clint]

you are great, this is exactly what i need. thanks a lot. i will use this with MS Agent. if u need files and info about msagent i can send u whatever u need... thanks again...