Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Me.DateTimePicker1.Format = DateTimePickerFormat.Custom Me.DateTimePicker1.CustomFormat = " " End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.DateTimePicker1.Format = DateTimePickerFormat.Custom Me.DateTimePicker1.CustomFormat = " " End Sub Private Sub DateTimePicker1_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles DateTimePicker1.DropDown Me.DateTimePicker1.CustomFormat = "yyyy/MM/dd" End Sub Private Sub DateTimePicker1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DateTimePicker1.KeyDown If e.KeyCode = Keys.Delete Then Me.DateTimePicker1.CustomFormat = " " ElseIf Me.DateTimePicker1.CustomFormat = " " AndAlso _ (e.KeyValue >= 48 AndAlso e.KeyValue <= 57) OrElse _ (e.KeyValue >= 96 AndAlso e.KeyValue <= 105) _ Then Me.DateTimePicker1.CustomFormat = "yyyy/MM/dd" End If End Sub>Hi,