Sub TemperatureConverter()

 exitOK=com.sun.star.ui.dialogs.ExecutableDialogResults.OK
 Library=DialogLibraries.GetByName("GUI")
 TheDialog=Library.GetByName("SimpleConverterDialog")

 DialogField1=Dialog.getControl("InputField")
 DialogField2=Dialog.getControl("ListBox")
 DialogField2.SelectItemPos(0, True)
 DialogField3=Dialog.getControl("ResultField")

 Dialog.execute()

 InputValue=DialogField1.value

 Select Case DialogField2.SelectedItem

 Case "Fahrenheit -> Celsius"
 ConvertedValue=(InputValue-32)*5/9
 DialogField3=Dialog. getControl("ResultField"). setValue(ConvertedValue)
 Button=Dialog.getControl("CommandButton")
 Button.Label = "Cerrar"
 Dialog.execute()

 Case "Celsius -> Fahrenheit"
 ConvertedValue=InputValue*9/5+32
 DialogField3=Dialog. getControl("ResultField").setValue(ConvertedValue)
 Button=Dialog.getControl("CommandButton")
 Button.Label = "Cerrar"
 Dialog.execute()

 End Select
 End Sub