home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / popupx / setup.exe / _SETUP.1 / WaitCurs.cls < prev   
Encoding:
Visual Basic class definition  |  1998-05-14  |  722 b   |  32 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "CWaitCursor"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = True
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = False
  10. Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
  11. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  12. Option Explicit
  13.  
  14. Private m_nPointer As MousePointerConstants
  15.  
  16.  
  17. Public Sub SetCursor(Optional nPointer As MousePointerConstants = vbHourglass)
  18.     Screen.MousePointer = nPointer
  19. End Sub
  20.  
  21. Public Sub Restore()
  22.     Screen.MousePointer = m_nPointer
  23. End Sub
  24.  
  25. Private Sub Class_Initialize()
  26.    m_nPointer = Screen.MousePointer
  27. End Sub
  28.  
  29. Private Sub Class_Terminate()
  30.     Restore
  31. End Sub
  32.