Public Sub MostrarToast
Dim fecha As String = $"Fecha : ${DateTime.Date(Main.FechaBD)& CRLF & "Hora : "} ${DateTime.Time(Main.FechaBD)}"$
toast.Initialize("")
toast.withGravity(toast.Gravity.TOAST_CENTER)
toast.withTextColor(Colors.Blue)
toast.withAnimation(toast.Animation.FLY)
toast.withDuration(4000)
toast.withOval(True)
toast.create(fecha)
toast.Show
End Sub