Изменение размеров картинки

Form1.Picture = LoadPicture("image\1.jpg", 20, 20)

Option Explicit
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 Declare Function SetStretchBltMode Lib "gdi32" (ByVal hdc As Long, ByVal hStretchMode As Long) As Long
Const STRETCHMODE = vbPaletteModeNone
 
Private Sub Form_Load()
 
Form1.AutoRedraw = True
Form1.Picture = LoadPicture("image\1.jpg")
 
Call SetStretchBltMode(Form1.hdc, STRETCHMODE)
Call StretchBlt(Form1.hdc, 0, 0, 50, 50, Form1.hdc, 0, 0, 100, 100, vbSrcCopy)
Form1.Refresh
 
End Sub

Private Sub Form_Load()
Form1.AutoRedraw = True
Form1.ScaleMode = vbPixels
Form1.Picture = LoadPicture("image\1.jpg")
Form1.PaintPicture Form1.Picture, 0, 0, 50, 50, 0, 0, 100, 100, vbSrcCopy
End Sub

Private Sub Command1_Click()
    Call StretchBlt(Picture1.hdc, 0, 0, Picture1.Width, Picture1.Height, Picture2.hdc, 0, 0, Picture2.Width, Picture2.Height, vbSrcCopy)
End Sub

Private Sub Command1_Click()
    Call StretchBlt(Form1.hdc, 50, 200, 150, 150, Picture2.hdc, 0, 0, Picture2.Width, Picture2.Height, vbSrcCopy)
End Sub