Public Class frmcalendar
    Public dt As DateTime

    Private Sub MonthCalendar1_DateChanged(sender As Object, e As DateRangeEventArgs) Handles MonthCalendar1.DateChanged

    End Sub

    Private Sub MonthCalendar1_DoubleClick(sender As Object, e As EventArgs) Handles MonthCalendar1.DoubleClick
        dt = MonthCalendar1.SelectionRange.Start
        Me.Close()
    End Sub

    Private Sub MonthCalendar1_KeyDown(sender As Object, e As KeyEventArgs) Handles MonthCalendar1.KeyDown
        If e.KeyCode = Keys.Enter Then
            dt = MonthCalendar1.SelectionRange.Start
            Me.Close()
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.dt = Me.MonthCalendar1.SelectionRange.Start
        Me.Close()
    End Sub
End Class