Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnAdd.Click
        al.Add(New s("aaa" + cnt.ToString(), cnt))
        DataGrid1.SetDataBinding(Nothing, Nothing)
        DataGrid1.SetDataBinding(al, Nothing)
        cnt += 1
        ListBox1.DataSource = Nothing
        ListBox1.DataSource = al
        ListBox1.DisplayMember = "Name"
    End Sub