A
Amanda
here is my code; see ????
Private Sub dtmMonthCalendar1_MouseLeave(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles dtmMonthCalendar1.MouseLeave
mdatArrivalDate = dtmMonthCalendar1.SelectionStart
txtArrivalDate.Text = mdatArrivalDate
If dtmMonthCalendar1.CanSelect Then
txtDepartureDate.Text = dtmMonthCalendar1.SelectionEnd
txtNightStayed.Text = (dtmMonthCalendar1.SelectionEnd _
- dtmMonthCalendar1.SelectionStart).TotalDays
Else
txtDepartureDate.Text = ????
txtNightStayed.Text = "1"
End If '
mshrNightStayed = Val(txtNightStayed.Text)
dtmMonthCalendar1.Hide()
End Sub
Private Sub dtmMonthCalendar1_MouseLeave(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles dtmMonthCalendar1.MouseLeave
mdatArrivalDate = dtmMonthCalendar1.SelectionStart
txtArrivalDate.Text = mdatArrivalDate
If dtmMonthCalendar1.CanSelect Then
txtDepartureDate.Text = dtmMonthCalendar1.SelectionEnd
txtNightStayed.Text = (dtmMonthCalendar1.SelectionEnd _
- dtmMonthCalendar1.SelectionStart).TotalDays
Else
txtDepartureDate.Text = ????
txtNightStayed.Text = "1"
End If '
mshrNightStayed = Val(txtNightStayed.Text)
dtmMonthCalendar1.Hide()
End Sub