Private Sub MonthView1_DateClick(ByVal DateClicked As Date) Text1.Text = Format$(DateClicked, "yyyy-mm-dd") End Sub