ol1.hWndDisplay = Form2.Picture1.hWnd '获得图片框Picture1的句柄
                    Call Gongong '调用滚动过程
                Case 2
                    Form2.Hide '隐藏窗体Form2
                    StatusBar1.Visible = True '使得工具栏可见
                    MMControl1.DeviceType = "WaveAudio" '设置播放器类型
                    MMControl1.TimeFormat = 1 '设置播放的时间格式
                    MMControl1.FileName = .FileName '获得文件路径名
                    MMControl1.Command = "Open" '设置打开命令
                    Slider1.Min = 0 '设置滑动条控件的最小值
                    Slider1.Max = MMControl1.Length '设置滑动条控件的最大值
                Case 3
                    Load Form2 '加载窗体Form2
                    Form2.Caption = "准备就绪" '设置窗体Form2的标题
                    Form2.Show '显示窗体Form2
                    StatusBar1.Visible = True '使得工具栏可见
                    MMControl1.DeviceType = "MpegVideo" '设置播放器类型
                    MMControl1.TimeFormat = 3 '设置播放的时间格式
                    MMControl1.FileName = .FileName '获得文件路径名
                    MMControl1.Command = "Open" '设置打开命令
                    Slider1.Min = 0 '设置滑动条控件的最小值
                    Slider1.Max = MMControl1.Length '设置滑动条控件的最大值
                    MMControl1.hWndDisplay = Form2.Picture1.hWnd '获得图片框Picture1的句柄
                    Call Gongong '调用滚动过程
                Case 4
                    Form2.Hide '隐藏窗体Form2
                    StatusBar1.Visible = True '使得工具栏可见
                    MMControl1.DeviceType = "Sequencer" '设置播放器类型
                    MMControl1.TimeFormat = 1 '设置播放的时间格式
                    MMControl1.FileName = .FileName '获得文件路径名
                    MMControl1.Command = "Open" '设置打开命令
                    Slider1.Min = 0 '设置滑动条控件的最小值
                    Slider1.Max = MMControl1.Length '设置滑动条控件的最大值
            End Select
        End With
    End Sub
    '播放事件
    Private Sub Play_Click()
        Dim Mydrive(12), mydir, vcdname As String '定义字符串变量
        Dim i As Integer '定义整型变量
        '设置驱动器名
        Mydrive(0) = "d:"
        Mydrive(1) = "e:"
        Mydrive(2) = "f:"
        Mydrive(3) = "g:"
        Mydrive(4) = "h:"
        Mydrive(5) = "i:"
        Mydrive(6) = "j:"
        Mydrive(7) = "k:"
        Mydrive(8) = "l:"
        Mydrive(9) = "m:"
        Mydrive(10) = "n:"
        Mydrive(11) = "o:"
        For i = 0 To 11
            ChDir (Mydrive(i)) '修改指定驱动器上的当前或缺省目录
            On Error GoTo try
        Next i
    try:
        mydir = Mydrive(i - 1) + "\mpegav\"
        vcdname = Dir(mydir, vbNormal) '返回目录路径
        Load Form2 '加载窗体Form2
        Form2.Show '显示窗体Form2
        With MMControl1
            .DeviceType = "MpegVideo" '设置播放器类型
            .TimeFormat = 3 '设置播放的时间格式
            .FileName = mydir + vcdname '设