Hi
Here is a solution from post:
http://groups.google.com/group/micro...1f442f376022d9
Try this: (assumes a monthcalendar control called MonthCalendar1 and a
textbox control called TextBox1)
Private m_NumClicks As Short = 0
Private m_FirstClick As Long
Private Sub MonthCalendar1_ DateSelected( _
ByVal sender As Object, _
ByVal e As System.Windows. Forms.DateRange EventArgs) _
Handles MonthCalendar1. DateSelected
If m_NumClicks >= 2 Then
TextBox1.Text = e.Start.Date.To String
m_NumClicks = 0
End If
End Sub
Private Sub MonthCalendar1_ MouseDown( _
ByVal sender As Object, _
ByVal e As System.Windows. Forms.MouseEven tArgs) _
Handles MonthCalendar1. MouseDown
If e.Button = MouseButtons.Le ft Then
If m_NumClicks = 0 Then
m_FirstClick = Now.Ticks
m_NumClicks += 1
ElseIf (Now.Ticks - m_FirstClick) > 2000000 Then
m_NumClicks = 0
Else
m_NumClicks += 1
End If
End If
End Sub
Jacob Grass
Microsoft .NET MVP