DateDialog from EditText

Hello

I open the pressing DateDialog EditText and show a selection in the EditText, the problem is that it also opens the keyboard, as I can do to not display the keyboard.

Sub EditText1_FocusChanged (HasFocus As Boolean)

If HasFocus Then

dialeg.Year = DateTime.GetYear(DateTime.Now)
dialeg.Month = DateTime.GetMonth(DateTime.Now)
dialeg.DayOfMonth = DateTime.GetDayOfMonth(DateTime.Now)
dialeg.Show("select date","none","ok","cancel","",Null)

End If

End Sub

Sub EditText1_EnterPressed

edittext1.Text= DateTime.Date(dialeg.DateTicks)

End Sub



Thank you.