Tariq,

loAlarm = createobject( "AlarmClock" )
loAlarm.AlarmTime = datetime() + 60 && one minute from now

define class AlarmClock as timer
Interval = 5000
AlarmTime = {}
Enabled = .t.

function timer
if ( datetime() >= this.AlarmTime )
   this.Enabled = .f.
   MessageBox( "Time to wake up" )
endif
enddefine

>I want to use alarm clock in my application. If any body has sample form, please help me.