> Private Sub SelRange() > Dim sr As New SelectionRange > sr.Start = DateTime.Parse(Me.textBox1.Text) > sr.End = DateTime.Parse(Me.textBox2.Text) > ' Assign the SelectionRange object to the > ' SelectionRange property of the MonthCalendar control. > Me.MonthCalendar1.SelectionRange = sr > End Sub > > Private Sub monthCalendar1_DateChanged(ByVal sender As Object, _ > ByVal e As DateRangeEventArgs) Handles MonthCalendar1.DateChanged > Me.TextBox1.Text = MonthCalendar1.SelectionRange.Start.Date.ToShortDateString() > Me.TextBox2.Text = MonthCalendar1.SelectionRange.End.Date.ToShortDateString() > > End Sub >I think everithing is good but you must select the renage when you drag mouse over the dates or keep Shift button and click on First and second date. May be I am totaly wrong because I understand VB.NET as much as chinese but who knows.