Imports System.Runtime.InteropServices

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        
        Dim objApp As SolidEdgeFramework.Application
        Dim objDoc As SolidEdgeDraft.DraftDocument
        Dim objTableStyles As SolidEdgeFrameworkSupport.TableStyles
        Dim objTableStyle As SolidEdgeFrameworkSupport.TableStyle
        Try

            objApp = Marshal.GetActiveObject("SolidEdge.Application")
            objDoc = objApp.ActiveDocument
            objTableStyles = objDoc.TableStyles

            objTableStyle = objTableStyles.Add("testStyle", "Normal")

            ' Title / Header / Data - text styles
            objTableStyle.TitleTextStyle = "Normal"
            objTableStyle.HeaderTextStyle = "Normal"
            objTableStyle.DataTextStyle = "Normal"

            ' line colors
            objTableStyle.LineColor(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seBorder) = 16711680 'blue
            objTableStyle.LineColor(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seTitleSeparator) = 16711680
            objTableStyle.LineColor(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seHeaderSeparator) = 16711680
            objTableStyle.LineColor(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seHeaderSeparator) = 16711680
            objTableStyle.LineColor(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seHeaderDataSeparator) = 16711680
            objTableStyle.LineColor(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seHorizontalGridLine) = 16711680
            objTableStyle.LineColor(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seVerticalGridLine) = 16711680

            ' line dash type
            objTableStyle.LineDashType(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seBorder) = "Continuous"
            objTableStyle.LineDashType(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seTitleSeparator) = "Dash"
            objTableStyle.LineDashType(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seHeaderSeparator) = "Chain"
            objTableStyle.LineDashType(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seHeaderSeparator) = "Centered Chain"
            objTableStyle.LineDashType(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seHeaderDataSeparator) = "Double Chain"
            objTableStyle.LineDashType(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seHorizontalGridLine) = "Dot"
            objTableStyle.LineDashType(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seVerticalGridLine) = "Dash Dot"

            ' line width
            objTableStyle.LineWidth(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seBorder) = 0.001
            objTableStyle.LineWidth(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seTitleSeparator) = 0.0005
            objTableStyle.LineWidth(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seTitleHeaderSeparator) = 0.0005
            objTableStyle.LineWidth(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seHeaderDataSeparator ) = 0.0005
            objTableStyle.LineWidth(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seHeaderDataSeparator) = 0.0005
            objTableStyle.LineWidth(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seHorizontalGridLine) = 0.0005
            objTableStyle.LineWidth(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seVerticalGridLine) = 0.0005

         
            For Each objTableStyle In objTableStyles
                Debug.Print(objTableStyle.Name)
                Debug.Print(objTableStyle.LineColor(SolidEdgeFrameworkSupport.TableStyleLineTypeConstants.seBorder))
            Next


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

End Class