DateDialog and EditText

Sub Globals
   'These global variables will be redeclared each time the activity is created.
   'These variables can only be accessed from this module.
   Dim txtData, txt_DataConsegna As Label
End Sub

Sub txtData_Click()
   Dim Dd As DateDialog
   Dim ret As Int
   ' set the date shown when the dialog is openend
   Dd.DateTicks = DataOdierna   
   ret = Dd.Show("Select a date", "Date", "OK", "", "Cancel", Null)
   If ret = DialogResponse.CANCEL Then Return
   txtData.Text = DateTime.Date(Dd.DateTicks)
   ' save the selected date, so it can be shown again
   DataOdierna = Dd.DateTicks
End Sub

'This label is declared in sub
Sub txt_DataConsegna_Click()
   Dim Dd As DateDialog
   Dim ret As Int
   ' set the date shown when the dialog is openend
   Dd.DateTicks = DataOdierna   
   ret = Dd.Show("Select a date", "Date", "OK", "", "Cancel", Null)
   If ret = DialogResponse.CANCEL Then Return
   txt_DataConsegna.Text = DateTime.Date(Dd.DateTicks)
   ' save the selected date, so it can be shown again
   DataOdierna = Dd.DateTicks
End Sub

Sub openDialog_Orders
 Dim cd As CustomDialog
 Dim scv As ScrollView
 Dim pnl As Panel
   scv.Initialize(390)
   pnl.Initialize("pnl")
   
 Dim bgnd As ColorDrawable
   bgnd.Initialize(Colors.Black, 5dip)
   pnl.Background = bgnd
   
'....
'......
txt_DataConsegna.Initialize("txt_DataConsegna")      
txt_DataConsegna.text = DateTime.Date(DataOdierna)
End Sub

Sub EditText1_FocusChanged(HasFocus As Boolean)
 If HasFocues Then DateDialog.Show(...)
End Sub