[سعود]

كود :

Dim b() As String = txtdate.Text.Split("/")
        txtday.Text = b(0)
        txtmonth.Text = b(1)
        txtyear.Text = b(2)

---

المثال في المرفقات