ازاى اخلى التكيست بوكس يحول قيمته لتاريخ

Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress


        On Error Resume Next
       
        Select Case e.KeyChar
            Case "0" To "9", "-", "/", ControlChars.Back
                e.Handled = False
            Case Else
                e.Handled = True
        End Select