حول ادخال التاريخ في التكس بوكس او في دالة التاريخ

السلام عليكم

هنالك أكثر من حل كما ذكرتي , شاهد النصوص البرمجية لعمل ذلك.

سواءً عبر MaskedTextBox أو TextBox أو DateTimePicker

Private Sub Form1_Load(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles MyBase.Load

		'Text box format.
		Dim d As DateTime = Date.Now
		Me.TextBox1.Text = d.ToShortDateString
		Me.TextBox2.Text = Format(d, "yyyy/MM/dd")
		Me.TextBox3.Text = Format(d, "yyyy-ddd-MMM")

		'Custom date format.
		With Me.DateTimePicker1
			.Format = DateTimePickerFormat.Custom
			.CustomFormat = "yyyy/MM/dd"
		End With

		'Masked text box.
		With Me.MaskedTextBox1
			.Mask = "##/##/####"
		End With
		AddHandler MaskedTextBox1.Validating, AddressOf validatedate
	End Sub

	Private Sub validatedate(ByVal sender As Object, _
	ByVal e As System.ComponentModel.CancelEventArgs)

		If Not IsDate(Me.MaskedTextBox1.Text) Then
			e.Cancel = True
		End If

	End Sub

بالتوفيق إن شاء الله.