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...