vbAccelerator - Contents of code file: Form1.frm

VERSION 5.00
Begin VB.Form frmSlowGrow 
   Caption         =   "vbAccelerator Slow Grow Demonstration"
   ClientHeight    =   4050
   ClientLeft      =   6660
   ClientTop       =   2460
   ClientWidth     =   5400
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   270
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   360
   Begin VB.CheckBox chkAnimate 
      Caption         =   "&Animate"
      Height          =   315
      Left            =   4080
      TabIndex        =   2
      Top             =   660
      Value           =   1  'Checked
      Width           =   1215
   End
   Begin VB.CommandButton cmdRun 
      Caption         =   "&Run"
      Height          =   495
      Left            =   4080
      TabIndex        =   1
      Top             =   60
      Width           =   1215
   End
   Begin VB.PictureBox picSlowGrow 
      AutoRedraw      =   -1  'True
      BackColor       =   &H00000000&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3885
      Left            =   120
      ScaleHeight     =   255
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   255
      TabIndex        =   0
      Top             =   60
      Width           =   3885
   End
   Begin VB.Label lblPoints 
      Alignment       =   2  'Center
      Caption         =   "0 of 500 points"
      Height          =   495
      Left            =   4080
      TabIndex        =   3
      Top             =   1080
      Width           =   1215
   End
End
Attribute VB_Name = "frmSlowGrow"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private WithEvents m_cSlowGrow As cSlowGrow

Private Sub Reset()
   picSlowGrow.Cls
   picSlowGrow.ForeColor = QBColor(Rnd(16))
   picSlowGrow.Point picSlowGrow.ScaleWidth \ 2, picSlowGrow.ScaleHeight \ 2
   picSlowGrow.Refresh
End Sub

Private Sub chkAnimate_Click()
   m_cSlowGrow.Animate = False
End Sub

Private Sub cmdRun_Click()
Dim i As Long
   If (cmdRun.Tag = "") Then
      cmdRun.Tag = "RUN"
      cmdRun.Caption = "&Stop"
      Do While (cmdRun.Tag = "RUN") And (m_cSlowGrow.Points <
       m_cSlowGrow.MaxPoints)
         If m_cSlowGrow.Animate Then
            m_cSlowGrow.Step
         Else
            For i = 1 To 5000
               m_cSlowGrow.Step
            Next i
         End If
         m_cSlowGrow.Paint picSlowGrow.hdc
         picSlowGrow.Refresh
         DoEvents
      Loop
      cmdRun.Tag = ""
      cmdRun.Caption = "&Run"
   Else
      cmdRun.Tag = ""
      cmdRun.Caption = "&Run"
   End If
End Sub

Private Sub Form_Load()
   Set m_cSlowGrow = New cSlowGrow
End Sub

Private Sub m_cSlowGrow_PointAdded()
   '
   lblPoints.Caption = m_cSlowGrow.Points & " of " & m_cSlowGrow.MaxPoints
   If Not (m_cSlowGrow.Animate) Then
      m_cSlowGrow.Paint picSlowGrow.hdc
      picSlowGrow.Refresh
   End If
   '
End Sub