1<?xml version="1.0" encoding="UTF-8"?> 2<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> 3<script:module xmlns:script="http://openoffice.org/2000/script" script:name="TutorialClose" script:language="StarBasic">REM ***** BASIC ***** 4Dim myCloseDialog As Object 5 6Sub TutorialCloseMain 7 myCloseDialog = LoadDialog("Tutorials","TutorialCloseDialog") 8 myCloseDialog.Execute() 9End Sub 10 11Sub CloseYes(aEvent) 12 myCloseDialog.EndExecute() 13 DialogVisible = False 14End Sub 15</script:module>