REM  *****  BASIC  *****

Option VBASupport 1
Option Explicit

Sub GetImageFromList
	Dim oGraphicProvider, oGraphic, oPictures, oImage, dialog, i As Long
  	Dim props(0) As New com.sun.star.beans.PropertyValue
  	DialogLibraries.LoadLibrary("Standard")
	dialog = createUnoDialog(DialogLibraries.Standard.Dialog1)
  	oPictures = ThisComponent.DocumentStorage.getByName("Pictures")
  	oImage = oPictures.getByName(oPictures.ElementNames(0))
  	props(0).Name = "InputStream"
  	props(0).Value = oImage
  	oGraphicProvider = CreateUnoService("com.sun.star.graphic.GraphicProvider")
  	dialog.getControl("ImageControl1").Model.Graphic = oGraphicProvider.queryGraphic(props)
  	dialog.execute()
End Sub