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

Public TempPic As IPictureDisp
Set TempPic = LoadPicture(FileName)

Set Picture1 = TempPic

            Bufip = IBuffer.Info.bmWidthBytes / IBuffer.Info.bmWidth - 1

Public Mypic As IPictureDisp
Public Bufip As Long
Public count1 As Long
Private IBuffer As BSBITMAP
'................
    Set Mypic = LoadPicture(App.Path & "\ball1.jpg")
           GetObject Mypic, Len(IBuffer.Info), IBuffer.Info
            Bufip = Int(IBuffer.Info.bmWidthBytes / IBuffer.Info.bmWidth)
 
    ReDim IBuffer.Bits(0 To Bufip - 1, _
                       0 To IBuffer.Info.bmWidth, _
                       0 To IBuffer.Info.bmHeight - 1) As Byte
      count1 = GetBitmapBits(Mypic, IBuffer.Info.bmWidthBytes * IBuffer.Info.bmHeight, IBuffer.Bits(0, 0, 0))
        MsgBox "Bytes: " & count1

Option Explicit
 
Private Type RGBQUAD
    rgbBlue         As Byte
    rgbGreen        As Byte
    rgbRed          As Byte
    rgbReserved     As Byte
End Type
Private Type BITMAPINFOHEADER
    biSize          As Long
    biWidth         As Long
    biHeight        As Long
    biPlanes        As Integer
    biBitCount      As Integer
    biCompression   As Long
    biSizeImage     As Long
    biXPelsPerMeter As Long
    biYPelsPerMeter As Long
    biClrUsed       As Long
    biClrImportant  As Long
End Type
Private Type BITMAPINFO
    bmiHeader       As BITMAPINFOHEADER
    bmiColors       As RGBQUAD
End Type
Private Type BITMAP
    bmType          As Long
    bmWidth         As Long
    bmHeight        As Long
    bmWidthBytes    As Long
    bmPlanes        As Integer
    bmBitsPixel     As Integer
    bmBits          As Long
End Type
Private Declare Function GetDIBits Lib "gdi32" ( _
                         ByVal aHDC As Long, _
                         ByVal hBitmap As Long, _
                         ByVal nStartScan As Long, _
                         ByVal nNumScans As Long, _
                         ByRef lpBits As Any, _
                         ByRef lpBI As BITMAPINFO, _
                         ByVal wUsage As Long) As Long
Private Declare Function SetDIBits Lib "gdi32" ( _
                         ByVal hDC As Long, _
                         ByVal hBitmap As Long, _
                         ByVal nStartScan As Long, _
                         ByVal nNumScans As Long, _
                         ByRef lpBits As Any, _
                         ByRef lpBI As BITMAPINFO, _
                         ByVal wUsage As Long) As Long
Private Declare Function GetObject Lib "gdi32" _
                         Alias "GetObjectW" ( _
                         ByVal hObject As Long, _
                         ByVal nCount As Long, _
                         ByRef lpObject As Any) As Long
Private Declare Function GetDC Lib "user32" ( _
                         ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" ( _
                         ByVal hwnd As Long, _
                         ByVal hDC As Long) As Long
 
Private Sub Form_Load()
    Dim cPic    As StdPicture
    Dim tBMP    As BITMAP
    Dim tBI     As BITMAPINFO
    Dim bPix()  As Byte
    Dim hDC     As Long
    Dim lX      As Long
    Dim lY      As Long
    
    Set cPic = LoadPicture(App.Path & "\composer.jpg")
    
    GetObject cPic.Handle, LenB(tBMP), tBMP
    
    hDC = GetDC(0)
    
    ' // Задаем нужный формат
    With tBI.bmiHeader
        .biSize = LenB(tBI.bmiHeader)
        .biBitCount = 24    ' // 3 байта на пиксель
        .biHeight = -tBMP.bmHeight  ' // top-down picture
        .biWidth = tBMP.bmWidth
        .biPlanes = 1
    End With
    
    ' // Строка должна быть выровнена по 4 байтовой границе
    ReDim bPix(2, ((tBMP.bmWidth + 3) And &HFFFFFFFC) - 1, tBMP.bmHeight - 1)
    
    ' // Получаем пиксели
    GetDIBits hDC, cPic.Handle, 0, tBMP.bmHeight, bPix(0, 0, 0), tBI, 0
    
    ' // Инверсия зеленого канала для верхней левой четверти
    For lY = 0 To tBMP.bmHeight \ 2 - 1
        For lX = 0 To tBMP.bmWidth \ 2 - 1
            bPix(1, lX, lY) = Not bPix(1, lX, lY)
        Next
    Next
    
    ' // Задаем пиксели
    SetDIBits hDC, cPic.Handle, 0, tBMP.bmHeight, bPix(0, 0, 0), tBI, 0
    
    ReleaseDC 0, hDC
    
    Set Me.Picture = cPic
    
End Sub

hDC = GetDC(0)

Sub SetHdc(hdc As OLE_HANDLE)