home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / closin1r / frmmain.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-25  |  1.5 KB  |  53 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Look at da pretty snow!"
  6.    ClientHeight    =   3600
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   4800
  10.    BeginProperty Font 
  11.       Name            =   "Fixedsys"
  12.       Size            =   9
  13.       Charset         =   0
  14.       Weight          =   400
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    ForeColor       =   &H00808080&
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    Picture         =   "frmMain.frx":0000
  24.    ScaleHeight     =   240
  25.    ScaleMode       =   3  'Pixel
  26.    ScaleWidth      =   320
  27.    ShowInTaskbar   =   0   'False
  28.    StartUpPosition =   2  'CenterScreen
  29. Attribute VB_Name = "frmMain"
  30. Attribute VB_GlobalNameSpace = False
  31. Attribute VB_Creatable = False
  32. Attribute VB_PredeclaredId = True
  33. Attribute VB_Exposed = False
  34. Private mySnow As New VBSnow
  35. Private myScreen As New CDXVBScreen
  36. Private Sub Form_Click()
  37.     myScreen.ShowMouse
  38.     Unload Me
  39. End Sub
  40. Private Sub Form_KeyPress(KeyAscii As Integer)
  41.     Me.Cls
  42. End Sub
  43. Private Sub Form_Load()
  44.     Me.Show
  45.     bActive = True
  46.     myScreen.CreateFullScreen Me.hWnd, 320, 240, 16
  47.     myScreen.HideMouse
  48.     Do While DoEvents()
  49.         DoEvents
  50.         mySnow.DrawFlakes Me
  51.     Loop
  52. End Sub
  53.