prova se funziona

codice:
    Protected Sub Calendar1_Load(sender As Object, e As System.EventArgs) Handles Calendar1.Load
        Me.Validate()
    End Sub

    Protected Sub Calendar1_SelectionChanged(sender As Object, e As System.EventArgs) Handles Calendar1.SelectionChanged
        TextBox1.Text = Calendar1.SelectedDate.ToShortDateString()
        Me.Validate()
    End Sub