mp1.Load(File.DirAssets,"click.wav")
mp1.Play
DateTime.DateFormat="dd.M.yyyy"
dpe.Year = DateTime.GetYear(DateTime.now)
dpe.Month = DateTime.GetMonth(DateTime.now)
dpe.DayOfMonth = DateTime.GetDayOfMonth(DateTime.now)
dpe.CalendarViewShown = False 'Calendar is not in View
ret = dpe.Show("", "SCEGLI DATA", "Conferma", "Cancella", "", Null) ' ret is in red color, undeclared ret variable'
'ToastMessageShow(ret & " :: " & " Giorno: " & dpe.DayOfMonth & " . Mese: " & dpe.Month & " . Anno: " & dpe.Year, False)
If ret = -1 Then 'if -1 then show Date in Label
txtdataentrataprodotto.Text = dpe.DayOfMonth & "." & dpe.Month & "." & dpe.Year
End If