Как скопировать выбранный файл в указанную папку с отображением хода копирования - VB

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

Всем привет!!! нужен HELP! задача состоит вот в чём: на форме: 3 кнопки 2 текстовых поля CommonDialog ProgressBar1 Timer и label через элемент управления CommonDialog при нажатии на кнопку выводим окошко выбрать файл. ну с этим я справился. вот код:

                    Листинг программы
                
 
                        
                          
                    
 On Error Resume Next 
 CD.DialogTitle = "Выбрать файл"
 CD.Filter = "WinRar|*.rar|7-Zip|*.7z|Все файлы|*.*"
 CD.FileName = ""
 CD.ShowOpen
 If CD.FileName = "" Then Exit Sub
 Open CD.FileName For Binary As #1

теперь мне нужно поместить путь к этому файлу в текстовое поле. как-то запомнить выбранный файл. После при нажатии на другую кнопку мне нужно выбрать путь к папке (так же запихав этот путь в другое текстовое поле) и при нажатии на кнопку "Копировать" скопировать выбранный файл в ту папку, которую мы выбрали. копирование должно отображаться в ProgressBar1 и в label выводиться сколько времени прошло с момента начала копирования, сколько осталось и при возможности сколько % скопировалось. (вот это мне кажется самое сложное) как это осуществить? подскажите пожалуйста?..может кто кодом поможет? а? очень нужно!! заранее спасибо!

Решение задачи: «Как скопировать выбранный файл в указанную папку с отображением хода копирования»

textual
                            Листинг программы 
                        
текстовое_поле = CD.FileName