Visual Basic - Animaciones

Estoy comenzando apenas con este lenguaje... por lo pronto me gustaria saber el codigo fuente de las animaciones por ejemplo cuando se estan copiando o eliminando archivos de windows y como visualizar los archivos del disco duro. Si pudieran ayudarme... se los agradeceria mucho!! Gracias

'Espero ayudarte
'Para utilizar este codigo necesitas:
'1 control Animation
'1 DriveListBox
'1 DirLIst Box
'1 FileListBox
'1 boton de comando

Private Sub cmdStop_Click()
Animation1.Close
cmdStop.Enabled = False
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Drive1.Drive = Drive1.Drive
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
If Right(File1.FileName, 3) = "AVI" Then
Animation1.AutoPlay = True
Animation1.Open Dir1.Path & "\" & File1.FileName
cmdStop.Enabled = True
Else
MsgBox "Seleccione un archivo *.AVI", vbInformation + vbOKOnly, "Información del Sistema"
Exit Sub
End If
End Sub

'De Harold Valdivia: [email protected]
'Suerte