新知识点： 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

成品图