Forgotten the hourglass? (1 Viewer)

[Guus2005]

No need to turn it off anymore.

Option Compare Database
Option Explicit
'Guus2005 - 21 November 2005
'Use this class to set the hourglass on or off.
'When the class terminates the hourglass is automatically turned off.
'You'll never forget turning it off!
'
'Below you'll find an example!

Private Sub Class_Terminate()

    HourGlassOff

End Sub

Public Sub HourGlassOn()

    DoCmd.Hourglass True

End Sub

Public Sub HourGlassOff()

    DoCmd.Hourglass False

End Sub

  
''''' Example
''''Public Sub Doit()
''''
''''    Dim hrg As New clsHourglass
''''
''''    hrg.HourGlassOn
''''
'''''
''''' Lots of important and time consuming stuff here
'''''
''''
''''    hrg.HourGlassOff 'Not really necessary!
''''
''''End Sub