Создать Превьюшки для Группы фотографий

Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Private Const SRCCOPY = &HCC0020 ' (DWORD) dest = source
 
Const d = 100 ' нужный размер
 
Private Sub Command1_Click()' уменьшить и сохранить как bmp
    Dim OldWidth As Long
    Dim OldHeight As Long
    Dim NewWidth As Long
    Dim NewHeight As Long
    
    Picture1.Visible = False
    Picture2.Visible = True
    
    OldWidth = Picture1.Width
    OldHeight = Picture1.Height
    
    NewWidth = d
    NewHeight = d * OldHeight / OldWidth
 
    Debug.Print "Была ширина:"; OldWidth
    Debug.Print "Была высота:"; OldHeight
    Picture2.Width = NewWidth
    Picture2.Height = NewHeight
    StretchBlt Picture2.hdc, 0, 0, NewWidth, NewHeight, Picture1.hdc, 0, 0, OldWidth, OldHeight, SRCCOPY
 
    SavePicture Picture2.Image, Text2.Text
End Sub
 
Private Sub Command2_Click()
    Picture1.Picture = LoadPicture(Text1.Text)
    Picture1.Visible = True
    Picture2.Visible = False
End Sub