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

Option VBASupport 1
Option Explicit


Sub Main
	Dim dialog, imageControl, model
	Dim imagePath As String : imagePath = "file:///C:/Users/User/test.jpg"
	
	DialogLibraries.LoadLibrary("Standard")
	dialog = createUnoDialog(DialogLibraries.Standard.Dialog1)
	model = dialog.getModel() 
	imageControl = model.getByName("ImageControl1")
	imageControl.ImageURL = imagePath
	dialog.execute()
End Sub