Dialogo centralizar na tela

[schiavinatto]

Existe comando para centralizar (horizontal/vertical) a Caixa de Dialogo na tela. A macro abaixo é possível informar as distancias da borda a esquerda e do topo.

  Sub EjecutarMiDialogoo4()
                  ' by Mauricio Baeza Servín
    Dim oDialogo As Object
    Dim oDialogoModelo As Object
    	DialogLibraries.LoadLibrary( "Standard" )
    	oDialogo = CreateUnoDialog( DialogLibraries.Standard.getByName("miDialogo") )
    	oDialogoModelo = oDialogo.getModel()
    	With oDialogoModelo 
    		.BackgroundColor = RGB(Rnd*255,Rnd*255,Rnd*255)		'El color de fondo
    		.PositionX = 100								'Posição a esquerda
    		.PositionY = 100								'Posição do topo.
    		.Width = 200								'Largura
    		.Height = 200								'Altura
    	End With
    	oDialogo.execute()
    	oDialogo.dispose()	
    End Sub