Передача изображения из spreedsheet в PictureBox control

---

Здравствуйте, Доброе Утро.

Я хочу что-то спросить, но перед этим я попытался найти возможный ответ, прежде чем сделать это. Вот он идет по ссылке ниже.

https://forum.openoffice.org/en/forum/viewtopic.php?f=7&t=42794

Он передает изображение из VB6 в Calc, мой вопрос в том, как я могу сделать это наоборот? Но на этот раз в электронной таблице OpenOffice.
Чтобы сделать историю короче вот моя цель.

Как я могу перенести изображение из электронной таблицы в элемент управления Image или Picturebox? Как я могу сделать это в цикле? Так что получите изображение и перенесите его в мой VB6 ImageBox для каждого изображения. Это моя цель, по крайней мере, только передача. Я сделаю петлю. Я надеюсь, что кто-то потерпит мою проблему и ТИСМ. :( :( :(

Это мой код, но он не работает.

Dim objServiceManager As Object
  Dim objDesktop        As Object
  Dim objDocument       As Object
  Dim objText           As Object
  Dim objCursor         As Object
  Dim oDoc              As Object
  Dim ARG()
  Dim oGraph    As Object
  Dim oView     As Object
  Dim oDrawPage As Object
  Dim oSheet    As Object
  Dim Image     As System_Drawing.Image
  Dim oimage As Object
  Dim osize As Object

  Set objServiceManager = CreateObject("com.sun.star.ServiceManager")
  Set objDesktop = objServiceManager.createInstance("com.sun.star.frame.Desktop")
  Set oDoc = objDesktop.loadComponentFromURL("file:///C:\Users\paul\Desktop\Testing.ods", "_blank", 0, ARG())
  Set oSheet = oDoc.getSheets().getByIndex(0)
  Set oGraph = oDoc.createInstance("com.sun.star.drawing.GraphicObjectShape")
  Set oView = oDoc.CurrentController
  Set oDrawPage = oView.getActiveSheet.DrawPage


  For i = 0 To 2
      For j = 0 To 9
         ' Form1.Image1.Picture = Clipboard.GetData

          Form1.Image1.Picture = LoadPicture(oDrawPage)
      Next
  Next

Что я уже пробовал:

Я изо всех сил старался найти и придумать код выше

---