ник: Дядя Федор
Вот нашел что-то
Option Explicit
Dim i As Integer
Private Sub Command1_Click()
If i = 0 Then
Command1.Caption = "Удалить файл"
With Animation1
.Stop
.Visible = False
.Open (App.Path & "\One.avi")
.Visible = True
.Play
End With
i = i + 1
Else
Command1.Caption = "Очистить корзину"
With Animation1
.Stop
.Visible = False
.Open (App.Path & "\Two.avi")
.Visible = True
.Play
End With
i = 0
End If
End Sub
'Библ. Animation (Microsoft Windows Common Control-2 5.0)
|
НЕ то. И библ. такой нет.