Доброго Вам времени суток
Уважаемые господа

при наличии времени прошу Вас помочь

при помощи данного кода я копирую файлы

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Private Sub Command1_Click()
cd.ShowOpen ‘открываем диалоговое окно открытия файла
A = CopyFile(cd.FileName, "C:\2\" + cd.FileTitle, False) ‘перекопиррвка
If A Then
MsgBox "Файл скопирован"
Else
MsgBox "Файл не скопирован"
End If
End Sub

копирую я в основном большие картинки

подскажите пожалуйста как изменить код так,

чтобы размер картинки после копирования стал 100X100

т.е. из большого изображения после копирования мы получаем
миниатюру изображения

С Уважением и благодарностью
Намик