  TabIndex        =   0
      Top             =   300
      Width           =   2775
   End
End
Attribute VB_Name = "frmTestProgress"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdAnimate_Click()
   If tmrUpd.Enabled Then
      tmrUpd.Enabled = False
      cmdStep.Enabled = True
      cmdAnimate.Caption = "&amp;Animate"
   Else
      tmrUpd.Enabled = True
      cmdStep.Enabled = False
      c