Dim dt As DataTable = CType(ListBox1.DataSource, DataTable)
        For Each r As DataRow In dt.Rows
            r(ListBox1.DisplayMember) = Date.Parse(r( _
              ListBox1.DisplayMember)).ToString("dd.MM.yyyy HH:mm")
        Next