VERSION 2.00
Begin Form frmEachPic 
   BorderStyle     =   1  'Fixed Single
   ControlBox      =   0   'False
   Height          =   2805
   Icon            =   EACHPIC.FRX:0000
   Left            =   1035
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2400
   ScaleWidth      =   2700
   Top             =   1140
   Visible         =   0   'False
   Width           =   2820
   Begin Timer tmrPicture 
      Left            =   780
      Top             =   960
   End
   Begin QTPicture QTPicture1 
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   495
      Left            =   0
      PictureName     =   "(none)"
      TabIndex        =   0
      Top             =   0
      Width           =   1215
   End
End
Option Explicit

Sub QTPicture1_Click ()
'   Stop the program when the user clicks on the Picture
    End
End Sub

Sub tmrPicture_Timer ()
'   Beep
    PictureNum = PictureNum + 1
    ShowPicture
End Sub