Formato de salida de fecha

Estimados Amigos

Saludarlos en primer lugar y solicitarles su gran ayuda, gracias de antemano por sus respuestas

Estoy utilizando el framework xojo.core.Date y tengo el siguiente cdigo

Using Xojo.Core
Dim currentLocale As Locale
currentLocale = Locale.Current
Dim textualFecha As Text = “01/06/2015”
Dim otrafecha As Date = Date.FromText(textualFecha,currentLocale)
self.txtFecIni.Text=otrafecha.ToText

y lo que muestra en la caja de texto txtFecIni.text es una fecha con el siguiente formato:
2015-06-01 00:00:00
pero en realidad el formato que necesito es el siguiente: 01/06/2015
E intentado poner formato en Mask de la caja de texto pero no lo consigo.
que es lo que tengo que hacer para que me muestre en la caja de texto la fecha con el formato dd/mm/yyyy?

en intentado en el Mask de la caja de texto pero no lo consigo, bueno mis conocimientos son incipientes

Cordialmente,
Raul

Las respuestas aqui no son de acuerdo ? https://forum.xojo.com/24291-funciones-para-manejar-fechas

Using Xojo.Core Dim currentlocale As Locale = Locale.Current Dim gmt As New Xojo.Core.TimeZone(7200) // Get Spain GMT time zone GMT+2 horas (7200 segundos). Dim otrafecha As New Date(2015, 06, 01, 0, 0, 0, 0, gmt) self.txtFecIni.Text= otrafecha.Day.ToText(locale.current, "00")+"/"+otrafecha.Month.ToText(locale.current, "00")+"/"+otrafecha.Year.ToText