Declare Function EndDialog Lib "user32" (ByVal hDlg As Long, ByVal nResult As Long) As Long
EndDialog уничтожает модальное диалоговое окно. Данную функцию необходимо вызывать после создания диалогового окна с помощью функций DialogBox, DialogBoxParam, DialogBoxIndirect и DialogBoxIndirectParam
смотри пример shell32dlg.zip