学步园

 新知识点： Animation 是“动画模块”的意思   ProgressBar 是“进度条 进度

 Option Explicit

Private Sub Command1_Click()
        End
End Sub

Private Sub Form_Activate()
        Animation1.Open "D:\软件文件夹2\大型软件\VB学习\百例\百例源文件\实例87\实例素材\FILEDELR.AVI"
        '打开文件的路径
        Animation1.Play '播放动画       Animation 是“动画模块”的意思
End Sub

Private Sub Timer1_Timer()
        Static i As Integer '将变量定义为静态变量
        ProgressBar1.Value = i '进度条的值是变量的值    ProgressBar 是“进度条 进度条 ”的意思
        i = i + 1         '变量不断加1  因为时间是一秒秒钟的经过的
        Label1.Caption = "正在删除文件，剩余" & Str(60 - i) & "秒"
        If Str(60 - i) = 0 Then '如果变量的值增加到60s时
        End            '事件结束
        End If  
End Sub

成品图