per aprire il calendario ho utilizzato il datedialog
questo è il codice :
Sub edtData_FocusChanged (HasFocus As Boolean) ' apertura mascheda data e inserimento automatico
Dim data As DateDialog
Dim selezione As Int
If HasFocus Then
data.Show("", "Selezione la Data", "OK", "", "Annulla", Null)
selezione=data.Show("", "Selezione la Data", "OK", "", "Cancel", Null)
If selezione= DialogResponse.CANCEL Then Return
Else
DateTime.DateFormat="dd/MM/yyyy"
EdtData.Text=DateTime.Date(data.DateTicks)
End If
End Sub
problema: il calendario a video non risulta aggiornato alla data della richiesta ma parte dall'anno 2036 ,perchè?