Разместить IPictureDisp в Picture Box с координатами

Public TempPic As IPictureDisp
Set TempPic = LoadPicture(FileName)

Set Picture1 = TempPic

Option Explicit
 
Private Sub Form_Load()
    Dim hToken      As Long
    Dim tGpInput    As GdiplusStartupInput
    Dim hImage      As Long
    Dim hWatermark  As Long
    Dim hImageSurf  As Long
    Dim hWindowSurf As Long
    Dim lWWidth     As Long
    Dim lWHeight    As Long
    
    tGpInput.GdiplusVersion = 1
    
    GdiplusStartup hToken, tGpInput
    GdipLoadImageFromFile App.Path & "\Src.jpg", hImage
    GdipLoadImageFromFile App.Path & "\Watermark.png", hWatermark
    GdipGetImageWidth hWatermark, lWWidth
    GdipGetImageHeight hWatermark, lWHeight
    GdipGetImageGraphicsContext hImage, hImageSurf
    GdipSetSmoothingMode hImageSurf, SmoothingModeHighQuality
    GdipSetInterpolationMode hImageSurf, InterpolationModeBicubic
    
    ' // Поворот относительно центра картинки
    GdipTranslateWorldTransform hImageSurf, -lWWidth / 2, -lWHeight / 2, MatrixOrderAppend
    ' // поворачиваем на 40 градусов
    GdipRotateWorldTransform hImageSurf, 40, MatrixOrderAppend
    ' // Перемещаем в нужную точку (100;100)
    GdipTranslateWorldTransform hImageSurf, 100, 100, MatrixOrderAppend
 
    GdipDrawImageRect hImageSurf, hWatermark, 0, 0, lWWidth, lWHeight
 
    ' // Выводим на форму
    GdipCreateFromHDC Me.hDC, hWindowSurf
    GdipDrawImage hWindowSurf, hImage, 0, 0
    GdipDeleteGraphics hWindowSurf
    GdipDeleteGraphics hImageSurf
    GdipDisposeImage hImage
    GdipDisposeImage hWatermark
    GdiplusShutdown hToken
    
End Sub

   GdipLoadImageFromFile App.Path & "\Src.jpg", hImage
    GdipLoadImageFromFile App.Path & "\Watermark.png", hWatermark

Public TempPic As IPicture
............
Set TempPic = LoadPicture(FileNam)
Dim phdc As hdc
res = get_CurDC(hdc)

Option Explicit
 
Private m_cGDIPlus  As CGDIPlus
 
Private Sub Form_Load()
    Dim cImgBack    As CGDIPImage
    Dim cImgFill    As CGDIPImage
    Dim cImgMask    As CGDIPImage
    Dim cWinSurf    As CGDIPGraphics
    Dim cAttr       As CGDIPImageAttributes
    Dim cColMtx     As CGDIPColorMatrix
    
    On Error GoTo err_handler
    
    Set m_cGDIPlus = New CGDIPlus
    
    Set cImgBack = m_cGDIPlus.LoadImageFromFile(App.Path & "\bg.png")
    Set cImgFill = m_cGDIPlus.LoadImageFromFile(App.Path & "\fill.png")
    Set cImgMask = m_cGDIPlus.LoadImageFromFile(App.Path & "\mask.png")
    
    cImgFill.ResetMask
    cImgFill.ApplyMask cImgMask, 0, 0
    
    Set cWinSurf = m_cGDIPlus.CreateGraphicsFromHDC(Me.hDC)
    
    cWinSurf.InterpolationMode = InterpolationModeHighQuality
    cWinSurf.SmoothingMode = SmoothingModeAntiAlias
    
    ' // Рисуем задний фон
    cWinSurf.DrawImage cImgBack, 0, 0, cImgBack.Width * 2, cImgBack.Height * 2
    
    ' // Трансформация относительно центра картинки
    cWinSurf.TranslateWorldTransform -cImgFill.Width / 2, -cImgFill.Height / 2
    
    ' // Поворот на 65 градусов
    cWinSurf.RotateWorldTransform 65
    
    ' // Смещение, левый верхний угол 100, 100 пикселей
    cWinSurf.TranslateWorldTransform cImgFill.Width / 2 + 200, cImgFill.Height / 2 + 200
    
    ' // Выделяем цвета (увеличиваем интенсивность красного)
    Set cColMtx = New CGDIPColorMatrix
    
    cColMtx.m(0, 0) = 2: cColMtx.m(1, 1) = 1: cColMtx.m(2, 2) = 1: cColMtx.m(3, 3) = 1
    
    Set cAttr = m_cGDIPlus.CreateImageAttributes(cColMtx)
    
    cWinSurf.DrawImage cImgFill, 0, 0, cImgFill.Width, cImgFill.Height, , , , , cAttr
    
    ' // Инверсия маски и синего канала
    cColMtx.m(0, 0) = 1: cColMtx.m(1, 1) = 1: cColMtx.m(2, 2) = -1: cColMtx.m(3, 3) = -1
    cColMtx.m(3, 4) = 1: cColMtx.m(2, 4) = 1
    
    Set cAttr.ColorMatrix = cColMtx
    
    cWinSurf.ResetWorldTransform
    
    cWinSurf.DrawImage cImgFill, 0, 0, cImgFill.Width, cImgFill.Height, , , , , cAttr
    
    Exit Sub
    
err_handler:
    
    MsgBox Err.Source & " " & Err.Description
    
End Sub

Option Explicit
Private TempPic As IPicture
Private FileNam As String
Private x As Long, y As Long, cx As Long, cy As Long, xSrc As Long, ySrc As Long, cxSrc As Long, cySrc As Long
Private res As Long
'---------------
    Set TempPic = LoadPicture(FileNam)              '
'-----------------------
 
Private Sub Command2_Click()                            'Êîïèðîâàíèå IPicture
cx = Picture1.Width
cy = Picture1.Height
    cxSrc = TempPic.Width
    cySrc = TempPic.Height
res = TempPic.Render(Picture1.hDC, 0, 0, cx, cy, 0, 0, cxSrc, cySrc, 0)
End Sub