home *** CD-ROM | disk | FTP | other *** search
/ Microsoft DirectX SDK 7.0 / Dx7.bin / DXF / samples / multimedia / vbsamples / ddraw / src / fire / mainform.bas < prev    next >
Encoding:
BASIC Source File  |  1999-06-25  |  1.3 KB  |  45 lines
  1. VERSION 5.00
  2. Begin VB.Form MainForm 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H80000005&
  5.    BorderStyle     =   0  'None
  6.    Caption         =   "Form1"
  7.    ClientHeight    =   3195
  8.    ClientLeft      =   0
  9.    ClientTop       =   0
  10.    ClientWidth     =   4680
  11.    BeginProperty Font 
  12.       Name            =   "Times New Roman"
  13.       Size            =   36
  14.       Charset         =   0
  15.       Weight          =   700
  16.       Underline       =   0   'False
  17.       Italic          =   0   'False
  18.       Strikethrough   =   0   'False
  19.    EndProperty
  20.    Icon            =   "MainForm.frx":0000
  21.    LinkTopic       =   "Form1"
  22.    ScaleHeight     =   213
  23.    ScaleMode       =   3  'Pixel
  24.    ScaleWidth      =   312
  25.    ShowInTaskbar   =   1   'True
  26.    StartUpPosition =   3  'Windows Default
  27.    WindowState     =   2  'Maximized
  28. End
  29. Attribute VB_Name = "MainForm"
  30. Attribute VB_GlobalNameSpace = False
  31. Attribute VB_Creatable = False
  32. Attribute VB_PredeclaredId = True
  33. Attribute VB_Exposed = False
  34. Private Sub Form_KeyPress(KeyAscii As Integer)
  35.     If KeyAscii = 27 Then
  36.         ExitLoop = True
  37.     End If
  38. End Sub
  39.  
  40. Public Sub Form_Paint()
  41.     BlitRect.Right = DDSBackDesc.lWidth
  42.     BlitRect.Bottom = DDSBackDesc.lHeight
  43.     DDSFront.Blt BlitRect, DDSBack, BlitRect, DDBLT_WAIT
  44. End Sub
  45.