ArielTimer Object

                                            

Module : ArielTimer Description: Simple Timer delay class with events Version : V1.00 Sep 2000 Release : VB5/VB6 Copyright : © T De Lange, Ariel Systems, 2000 e-mail : tomdl@attglobal.net ---------------------------------------------------------------------------------- V1.00 Sep 00 Original version, based on code published by Riaan Aspeling http://www.planet-source-code.com ---------------------------------------------------------------------------------- Implement the following in your project form: Declarations: Private WithEvents ArTimer As ArielTimer 'Must be private to raise events Form_Load(): Set TimerObj = New ArielTimer TimerObj.Interval = To start the timer, issue the following: TimerObj.Enabled=True To stop the timer, issue the following: TimerObj.Enabled=False ----------------------------------------------------------------------------------