عرض التاريخ فقط من DataBindings

السلام عليكم ..

1. لدينا حدثان مهمان و هما Format و الــ Parse رابط.
2. مثال :

   Imports System.Data.OleDb
   
   Public Class FrmGroups
   	Dim DB As OleDbConnection
   	Dim DS As New DataSet
   	Dim DA As OleDbDataAdapter
   	Dim DT As New DataTable
   	Dim bs As New BindingSource
   	Private Sub FrmGroups_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   
       	DB = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DB\Store.accdb")
       	DA = New OleDbDataAdapter("Select * from Groups", DB)
       	DA.Fill(DT)
   
       	DGV.DataSource = bs
       	bs.DataSource = DT
   
       	TextBox1.DataBindings.Add("Text", bs, "TheDate")
       	AddHandler TextBox1.DataBindings(0).Format, AddressOf MyFormat
       	bs.ResetBindings(False)
   
   	End Sub
   
   	Sub MyFormat(ByVal sentFrom As Object, ByVal convertEventArgs As ConvertEventArgs)
       	Dim theDate As DateTime = convertEventArgs.Value
       	convertEventArgs.Value = theDate.ToString("dd / MM / yyyy")
   	End Sub
   
   End Class