Private Class Material
      Private _NAME As String = ""
      Private _RS As DataRowState
      Public Sub New(ByVal _n As String, ByVal _s As DataRowState)
         _NAME = _n
         _RS = _s
      End Sub
      Public Property NAME() As String
         Get
            Return _NAME
         End Get
         Set
            _NAME = value
         End Set
      End Property
      Public Property RowState() As DataRowState
         Get
            Return _RS
         End Get
         Set
            _RS = value
         End Set
      End Property
   End Class
   
   Sub Button9Click(ByVal sender As Object, ByVal e As EventArgs)
      Dim Materials As New List(Of Material)
      Materials.Add(New Material("Материал 1", DataRowState.Added))
      Materials.Add(New Material("Материал 2", DataRowState.Added))
      Materials.Add(New Material("Материал 3", DataRowState.Deleted))
      Materials.Add(New Material("Материал 4", DataRowState.Added))
      dtgVIEW.DataSource = Materials
   End Sub