home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap37 / basicss / module1.bas < prev    next >
BASIC Source File  |  1995-07-13  |  977b  |  49 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3.  
  4. Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
  5.  
  6. Global giCursorDepth As Integer
  7.  
  8. Sub Main()
  9.  
  10. If App.PrevInstance Then End
  11.  
  12. If InStr(Command, "/s") > 0 Then
  13.     CursorOff
  14.     frmScreenSaver.Show
  15. ElseIf InStr(Command, "/c") > 0 Then
  16.     MsgBox "No setup necessary for this screen saver", _
  17.         vbOKOnly + vbInformation, "Boxes Screen Saver"
  18. End If
  19.  
  20. End Sub
  21.  
  22. Public Sub EndScreenSaver()
  23. CursorOn
  24. End
  25. End Sub
  26.  
  27.  
  28.  
  29.  
  30. Public Sub CursorOn()
  31. Dim CurrentCursorDepth As Integer
  32.  
  33. CurrentCursorDepth = ShowCursor(True)
  34. Do While CurrentCursorDepth < giCursorDepth
  35.     CurrentCursorDepth = ShowCursor(True)
  36. Loop
  37. End Sub
  38.  
  39. Public Sub CursorOff()
  40. Dim CurrentCursorDepth As Integer
  41.  
  42. CurrentCursorDepth = ShowCursor(False)
  43. giCursorDepth = CurrentCursorDepth + 1 'Restore original value
  44. Do While CurrentCursorDepth > -1
  45.     CurrentCursorDepth = ShowCursor(False)
  46. Loop
  47.  
  48. End Sub
  49.