[mr_mgm]

كود :

Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
        TextBox1.Text = Format(CDate(TextBox1.Text), "yyyy/MM/dd")
    End Sub