VERSION 2.00
Begin Form frmEachMov 
   BorderStyle     =   1  'Fixed Single
   ControlBox      =   0   'False
   Height          =   2805
   Icon            =   0
   Left            =   1035
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2400
   ScaleWidth      =   2700
   Top             =   1140
   Visible         =   0   'False
   Width           =   2820
   Begin Timer tmrMovie 
      Left            =   780
      Top             =   960
   End
   Begin QTMovie QTMovie1 
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      GrowBox         =   -1  'True
      Height          =   495
      Left            =   0
      MovieName       =   "(none)"
      OffsetX         =   0
      OffsetY         =   0
      TabIndex        =   0
      Top             =   0
      Visible         =   -1  'True
      Width           =   1215
   End
End
Option Explicit

Sub QTMovie1_Click ()
'   Stop the program when the user clicks on the movie
    End
End Sub

Sub QTMovie1_QTPlay (lPlayRate As Long, bContinue As Integer)
'   When the current movie stops (lPlayRate = 0), increment
'   MovieNum and play the next movie
    If lPlayRate = 0& Then
        MovieNum = MovieNum + 1

'       Set the timer interval to start the next movie
        frmEachMov!tmrMovie.Interval = 1
    End If
End Sub

Sub tmrMovie_Timer ()
'   The purpose of this timer is to start the current movie
'   then shut itself off until the movie is done
    PlayMovie
    frmEachMov!QTMovie1.PlayRate = frmEachMov!QTMovie1.PreferredRate
    tmrMovie.Interval = 0
End Sub