Помогите сделать индикатор копирования файлов. - VB

Формулировка задачи:

Всем привет! Помогите сделать индикатор копирования файлов. Может ссылка у кого есть какая или готовый примерчик. Пробую с помощью FileSystem.FileCopy сделать всё копирует нормально, но при копировании файлов все элементы формы блокируются и ProgressBar обновлять не получается. Заранее все спасибо.

Решение задачи: «Помогите сделать индикатор копирования файлов.»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub cmdCopyFile_Click()
    If txtName3.Text <> '' And txtName4.Text <> '' Then
        FileSystem.FileCopy File_Name, 'c:films ' & txtName4.Text & File_Ext
        ProgressBar1.Value = FileSystem.FileLen(File_Name) / FileSystem.FileLen('c:films ' & txtName4.Text & File_Ext) * 100
    End If
    txtName3.Text = ''
    txtName4.Text = ''
End Sub