...è vero che anche in informatica vale il detto " Tutte le strade portano a Roma ", però, come sai, fra le tante strade, forse è da preferire quella più breve.
Ad ogni modo la soluzione al tuo problema è data dalla funzione nativa " Format( ) ", che puoi trovare alla pagina 146 di questo vecchio manuale:
http://www.emcu.it/GAMBAS/gambas.pdf
Il codice sarà dunque:
Public Sub Button1_Click()
Label1.Text = Format(Now, "dd/mm/yyyy")
End