LibreOffice Baseで作成したDialogにイベントリスナーを設定したい。

Question

windows10
LibreOffice 7.1.0.3

LibreOffice Baseで作成したDialogにはデフォルトでonLoadや読み込み時のイベントがありません。
イベントリスナーを作ろうとしているのですが、

'ボタンクリックでdFindUserダイアログを開きます。
'そのdFindUserダイアログのonLoadイベントをハンドリングしたいです。
Sub onButtonClick()
	Dim evListener As Object
	DialogLibraries.LoadLibrary("Standard")
	FindUserDialog=CreateUnoDialog( DialogLibraries.Standard.dFindUser )
	evListener=CreateUnoListener( "FindUserDialog_","com.sun.star.awt.XTopWindowListener" )
	FindUserDialog.addTopWindowListener( evListener )

	FindUserDialog.Execute()
	FindUserDialog.Dispose()
End Sub

'windowOpenedハンドラ
Function FindUserDialog_windowOpened( oEv As com.sun.star.lang.EventObject )
	MsgBox "test"
End Function

'disposingハンドラ
Sub FindUserDialog_disposing( oEv As com.sun.star.lang.EventObject )
End Sub

http://www.openoffice.org/api/docs/common/ref/com/sun/star/awt/XTopWindowListener.html#windowOpened
http://hermione.s41.xrea.com/pukiwiki/index.php?OOoBasic%2FDialog%2FEvent
↑これらサイトを参考に書いてみたのですが、実行すると、、、

1. "BASIC ランタイムエラー.次のプロパティまたはメソッドが見つかりません: $(ARG1)。"というエラーのメッセージボックスが2度表示された後、
2. "test"のメッセージボックスが表示され、
3. 一瞬dFindUserダイアログが表示され、
4. 再度 "BASIC ランタイムエラー.次のプロパティまたはメソッドが見つかりません: $(ARG1)。"というエラーのメッセージボックスが表示され
5. 親windoswにフォーカス(フォアグラウンド)が当たろうとするたび "BASIC ランタイムエラー.次のプロパティまたはメソッドが見つかりません: $(ARG1)。"のエラーダイアログの表示
6. 結果Base自体が終了できなくなる。

ということを繰り返しています。

"test"のメッセージボックスが表示されるということはハンドリングできているとおもわれるのですが、、、一瞬dFindUserダイアログも表示されますし。

試行錯誤したのですが、どこが悪いのか解決できそうにありません。
お知恵を拝借できないでしょうか?

Answer 1

自己解決しました。
質問時ではwindowOpenedハンドラとdisposingハンドラしか記述していませんが、
http://www.openoffice.org/api/docs/common/ref/com/sun/star/awt/XTopWindowListener.html#windowOpened
全てのハンドラを定義しないといけない、という事でした。
windowOpened
windowClosing
windowClosed
windowMinimized
windowNormalized
windowActivated
windowDeactivated
を定義することでいけました。