Initialize Dialog Selecting First Item to Listbox

[ago_med]

good evening…

I created a dialog (“Dialogo”) with two listbox…

And i need to when i initialize this dialog, the first item to “ListBox_Itens” automaticaly can be selected…

this image below show what i need…

[mark_t]

Example basic code for initialising the listbox when the dialog is started:-

Sub Main
	
	Dim vControl As Variant
	
	MySampleDialog = CreateUnoDialog(DialogLibraries.Standard.Dialog1)
	
	vControl = MySampleDialog.getControl("ListBox_Previa")
	vControl.selectItemPos(0, True)
	
	MySampleDialog.execute()
End Sub

[ago_med]

Thanks mark_t…

it’s working…