2 questions sur les boites de dialogue

1 - J'ai une boite de dialogue que je lance avec les instructions suivantes:

Dim DialBox as object

Sub OuvrirBoiteDial

DialBox = CreateUnoDialog(DialogLibraries.Standard.Dialog1) DialBox.execute() ' a priori le code suivant ne s'exécute qu'à la fermeture de la boite msgbox "C'est Ok"

End Sub

msgbox "C'est Ok" ne s'execute qu'à la fermeture de la boite or je voudrai qu'il s'exécute automatiquement dés l'ouverture de la boite . comment faire ?

2 - Que fait l'instruction DialBox.dispose() ?