Using Programming Languages other than VBA

Sub Example_ContentChange()
	 ' This example adds a table in model space and sets and gets a column name

	Dim MyModelSpace As AcadModelSpace
	Set MyModelSpace = ThisDrawing.ModelSpace
	Dim pt(2) As Double
	Dim MyTable As IAcadTable2
	Dim cName As String
	Set MyTable = MyModelSpace.AddTable(pt, 5, 5, 10, 30)

	Call MyTable.SetColumnName(2, "Test Name")
	MsgBox "The column name is: " & vbCrLf & _
		 MyTable.GetColumnName(2)

	ZoomExtents

End Sub