Composite Date & Time Control

Public Class Form1

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        CompositeDateTimeControl1.DateTimeValue = New Date(0L)
    End Sub

    Private Sub btnGet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGet.Click
        txtDate.Text = CompositeDateTimeControl1.DateTimeValue.ToString("dd-MMM-yyyy hh:mm tt")
    End Sub

    Private Sub btnSet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSet.Click
        Date.TryParse(txtDate.Text, CompositeDateTimeControl1.DateTimeValue)
    End Sub
End Class