home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / rosettes / rosettes.frm < prev    next >
Encoding:
Text File  |  1995-05-08  |  2.0 KB  |  60 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   0  'None
  5.    ClientHeight    =   0
  6.    ClientLeft      =   4260
  7.    ClientTop       =   3405
  8.    ClientWidth     =   930
  9.    ControlBox      =   0   'False
  10.    Height          =   405
  11.    Icon            =   ROSETTES.FRX:0000
  12.    Left            =   4200
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   0
  17.    ScaleWidth      =   930
  18.    Top             =   3060
  19.    Width           =   1050
  20. End
  21. ' 09/01/94
  22. '
  23. ' This screensaver was written because my wife wanted to see the various
  24. ' colors that VB could use. The backcolor is a randomly selected RGB color
  25. ' while the drawing color is a randomly selected QBcolor. Parts of this
  26. ' screensaver are from The Cobb Group publication "Inside Visual Basic for
  27. ' Windows". Since they allow subscriber's (I am one) to use their published
  28. ' code as the subscriber sees fit, I assume I am free to use it here.
  29. '
  30. ' As far as I am concerned, you may use this program as you see fit.
  31. ' I do, however, disclaim any and all responsibility for anything that
  32. ' may happen to your computer if you do decide use it.
  33. '
  34. ' This program was written on a 486 DX2 50 Mhz 8MB RAM system with DOS 6.2
  35. ' and Windows 3.1 running a Tseng Labs ET4000 board in 800x600x32K mode.
  36. '
  37. ' Robert G. Bennis (AOL Address RGB7795)
  38.  
  39. Sub Form_KeyDown (KeyCode As Integer, Shift As Integer)
  40.     MONITOREVENTS KEYDOWNEXIT, KEYDOWNEXIT
  41. End Sub
  42.  
  43. Sub Form_Load ()
  44.     If UCase$(Command$) = "/C" Then
  45.       Form1.Move 0, 0, 0, 0   ' hide form if in setup
  46.     Else
  47.       Form1.WindowState = 2
  48.       FIRSTTIME% = True
  49.     End If
  50. End Sub
  51.  
  52. Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  53.     MONITOREVENTS KEYDOWNEXIT, KEYDOWNEXIT
  54. End Sub
  55.  
  56. Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  57.     MONITOREVENTS X, Y
  58. End Sub
  59.  
  60.