Вот код. Он состоит из двух частей: копирование первого файла и копирования всех остальных в цикле. Ну так вот...
В кнопке стоит команда копирования (ниже) и удаления (аналогично копированию). Сначала все было Ок, но потом, при усложнении программы (код копирования я почти не трогал. Сделал прогрес бар и проценты в заголовке) стала происходить такая вещь: при копировании прогресс бар и проценты  немного продвигаются и все встаёт, т.е. окно замораживается, при щелчке в заголовке добавляется (не отвечает), но процесс все же идет. Что сделать чтобы не было этого? Чтобы процесс копирования отображался?

Private Sub Copy()
Label7.Caption = "Копирование..."
ProgressBar1.Max = File2.ListCount
File2.ListIndex = 0
Text2 = Dir2 & "\" & File2.FileName
Dim NewFSO As New FileSystemObject
Set folder = NewFSO.GetFolder(Dir1)
Text1 = folder
If folder.IsRootFolder = False Then Text1 = Text1 & "\"
Set file = NewFSO.GetFile(Text2)
future = Text1 + File2 'future - это будущее имя файла
Text3 = future
If NewFSO.FileExists(future) = False Then file.Copy (Text1)
If ProgressBar1 <> File2.ListCount Then
ProgressBar1 = ProgressBar1 + 1
frmFormAboutdrive.Caption = "Konica Minolta DIMAGE Z5, © Обухов Денис, 2006" & " --  " & ProgressBar1.Value * 100 \ ProgressBar1.Max & "%" ' В заголовке прописываются проценты
Else:
frmFormAboutdrive.Caption = "Konica Minolta DIMAGE Z5, © Обухов Денис, 2006"
ProgressBar1 = 0
End If
File1.Refresh
Do While stopp <> 1
If File2.ListCount <> File2.ListIndex + 1 Then File2.ListIndex = File2.ListIndex + 1 Else stopp = 1
Text2 = Dir2 & "\" & File2.FileName
Text1 = folder
If folder.IsRootFolder = False Then Text1 = Text1 & "\"
Set file = NewFSO.GetFile(Text2)
future = Text1 + File2
Text3 = future
If ProgressBar1 <> File2.ListCount Then
ProgressBar1 = ProgressBar1 + 1
frmFormAboutdrive.Caption = "Konica Minolta DIMAGE Z5, © Обухов Денис, 2006" & " --  " & ProgressBar1.Value * 100 \ ProgressBar1.Max & "%"
Else:
frmFormAboutdrive.Caption = "Konica Minolta DIMAGE Z5, © Обухов Денис, 2006"
ProgressBar1 = 0
End If
If NewFSO.FileExists(future) = False Then file.Copy (Text1)
File1.Refresh
Label3.Caption = File1.ListCount
Loop
Label7.Caption = ""
End Sub

Скорее всего, где нибудь в цикле поставь DoEvents и это поможет от заморозки.

Согласен!!!

Спасибо!!!!
Помогло. Еще, чтобы не открывать новую тему, может подскажите как читать из файлов изображений данные (iso, выдержка, дата, тип камеры, кол-во точек на дюйм) и  маленькую картинку, которая отображается при просмотре в проводнике в режиме "Эскизы страниц"  

Лучше открой другую тему и даже не одну

Этот вопрос не по VB, а по формату jpg.


Можно сделать при помощи Picture, если не ошибаюсь, объект поддерживает растягивание и сжимание размера картинки.