VERSION 2.00
Begin Form frmEachPicDir 
   Caption         =   "Play Each Picture"
   Height          =   3555
   Left            =   1425
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3150
   ScaleWidth      =   4275
   Top             =   1140
   Visible         =   0   'False
   Width           =   4395
   Begin DriveListBox drvPicture 
      Height          =   315
      Left            =   120
      TabIndex        =   6
      Top             =   2700
      Width           =   2355
   End
   Begin DirListBox dirPicture 
      Height          =   1605
      Left            =   120
      TabIndex        =   4
      Top             =   720
      Width           =   2355
   End
   Begin CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "Cancel"
      Height          =   375
      Left            =   2940
      TabIndex        =   1
      Top             =   600
      Width           =   1215
   End
   Begin CommandButton cmdOK 
      Caption         =   "OK"
      Default         =   -1  'True
      Height          =   375
      Left            =   2940
      TabIndex        =   0
      Top             =   120
      Width           =   1215
   End
   Begin TextBox txtDirPicture 
      BorderStyle     =   0  'None
      Height          =   225
      Left            =   180
      TabIndex        =   3
      TabStop         =   0   'False
      Top             =   420
      Width           =   2715
   End
   Begin Label lblDrvPicture 
      Caption         =   "Dri&ves"
      Height          =   195
      Left            =   180
      TabIndex        =   5
      Top             =   2460
      Width           =   1035
   End
   Begin Label lblDirPicture 
      Caption         =   "&Directories:"
      Height          =   195
      Left            =   180
      TabIndex        =   2
      Top             =   180
      Width           =   1035
   End
End
Option Explicit

Sub cmdCancel_Click ()
    End
End Sub

Sub cmdOK_Click ()
    PicturePath = frmEachPicDir.txtDirPicture
    ChDir PicturePath
    Unload frmEachPicDir
End Sub

Sub dirPicture_Change ()
    txtDirPicture.Text = dirPicture.Path
End Sub

Sub drvPicture_Change ()
    dirPicture.Path = drvPicture.Drive
End Sub

Sub Form_Load ()
    txtDirPicture.Text = dirPicture.Path
End Sub