Public Class Table

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim objApp As SolidEdgeFramework.Application = Nothing
        Dim objDoc As SolidEdgeDraft.DraftDocument = Nothing
        Dim objSheets As SolidEdgeDraft.Sheets = Nothing
        Dim objSheet As SolidEdgeDraft.Sheet = Nothing
        Dim objTables As SolidEdgeDraft.Tables = Nothing
        Dim objTable As SolidEdgeDraft.Table = Nothing
        Dim objTitles As SolidEdgeDraft.TableTitles = Nothing
        Dim objTitle As SolidEdgeDraft.TableTitle = Nothing
        Dim objColumns As SolidEdgeDraft.TableColumns = Nothing
        Dim objColumn As SolidEdgeDraft.TableColumn = Nothing

        Dim bValue As Boolean
        Dim nValue As Long
        Dim sValue As String
        Dim dValue As Double
        Dim FontStyle As SolidEdgeFrameworkSupport.DimTextFontStyleConstants

        Try
            objApp = GetObject(, "SolidEdge.Application")
            objDoc = objApp.ActiveDocument
            objSheets = objDoc.Sheets
            objSheet = objDoc.Sheets.Item(1)
            objTables = objDoc.Tables
            objTable = objTables.Item(1)
            objTitles = objTable.Titles
            objTitle = objTitles.Item(1)
            objColumns = objTable.Columns
            objColumn = objColumns.Item(1)

            'TitleFixedRowHeight
            objTable.TitleFixedRowHeight = 0.01
            dValue = objTable.TitleFixedRowHeight
            Debug.Print(dValue)

            'FontName
            objTitle.FontName = "Arial"
            sValue = objTitle.FontName
            Debug.Print(sValue)

            'FontStyle
            objTitle.FontStyle = SolidEdgeFrameworkSupport.DimTextFontStyleConstants.igDimStyleFontBold
            FontStyle = objTitle.FontStyle
            Debug.Print(FontStyle)

            'FontSize
            objTitle.FontSize = 0.02
            dValue = objTitle.FontSize
            Debug.Print(dValue)

            'DataMergeCellsWithSameValue
            objColumn.DataMergeCellsWithSameValue = True
            bValue = objColumn.DataMergeCellsWithSameValue
            Debug.Print(bValue)

            'HeaderRowFontName
            objColumn.CurrentHeaderRow = 1

            objColumn.HeaderRowFontName = "Arial"
            sValue = objColumn.HeaderRowFontName
            Debug.Print(sValue)

            'HeaderRowFontStyle
            objColumn.HeaderRowFontStyle = SolidEdgeFrameworkSupport.DimTextFontStyleConstants.igDimStyleFontBold
            FontStyle = objColumn.HeaderRowFontStyle
            Debug.Print(FontStyle)

            'HeaderRowUnderline
            objColumn.HeaderRowUnderline = True
            bValue = objColumn.HeaderRowUnderline
            Debug.Print(bValue)

            'DataFontName
            objColumn.DataFontName = "Arial"
            sValue = objColumn.DataFontName
            Debug.Print(sValue)

            'DataFontStyle
            objColumn.DataFontStyle = SolidEdgeFrameworkSupport.DimTextFontStyleConstants.igDimStyleFontBold
            FontStyle = objColumn.DataFontStyle
            Debug.Print(FontStyle)

            'DataUnderline
            objColumn.DataUnderline = True
            bValue = objColumn.DataUnderline
            Debug.Print(bValue)

            objTable.Update()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
End Class