Module Module1
    Class DT
        Private table As DataTable
        Sub New(t As DataTable)
            Me.table = t
        End Sub

        Public Sub Sloupce()
            Dim col As DataColumn
            Dim str As Type = GetType(String)
            Dim int As Type = GetType(Integer)
            Dim dbl As Type = GetType(Double)
            col = New DataColumn("Jmeno", str)
            table.Columns.Add(col)
            col = New DataColumn("Bydliste", str)
            table.Columns.Add(col)
            col = New DataColumn("Vel", int)
            table.Columns.Add(col)
            col = New DataColumn("Vaha", dbl)
            table.Columns.Add(col)
        End Sub
        Sub Napln()

            table.Rows.Add()
            table.Rows(0).Item(0) = "Novak"
            table.Rows(0).Item(1) = "Praha 6, Sukova 15"
            table.Rows(0).Item(2) = 35
            table.Rows(0).Item(3) = 100.52

            table.Rows.Add()
            table.Rows(1).Item(0) = "Horak"
            table.Rows(1).Item(1) = "Praha 6, Sukova 15"
            table.Rows(1).Item(2) = 35
            table.Rows(1).Item(3) = 100.52
        End Sub
        ReadOnly Property Sestava() As DataTable
            Get
                Return table
            End Get
        End Property
    End Class
End Module