timer.interval = 60 * 1000The code in the timer event might look something like:
*- In the following assume the Direction field contains “R” for Received or “S” for Sent. Select * ; From Messages ; Into Cursor curNewMessages ; Where UserID = SubStr( Sys(0), At( "#", Sys(0) ) + 2 ) ; And Direction = “R” ; And Not MessageRead If _Tally > 0 Then ThisForm.lblNewMessage.Visiible = .T. * Assume the following cursor was created using “Create Cursor” not an SQL Select. Select curReceived Append From Dbf(“curNewMessages”) Use In curNewMessages EndifOnce all new messages have been viewed (MessageRead has been set to .T.) then
ThisForm.lblNewMessage.Visiible = .F.
In the Append above you will also need to add code to make sure that you do not keep on appending the same records every time the timer event fires.