Private Sub Form_Load()
    Dim objApp As SolidEdgeFrameWork.Application
    Dim objDoc As SolidEdgeDraft.DraftDocument
    Dim objSheet As SolidEdgeDraft.Sheet
    Dim objDatums As SolidEdgeFrameworkSupport.DatumFrames
    Dim objANSIDimStyle As SolidEdgeFrameworkSupport.DimensionStyle
    Dim objDimStyles As SolidEdgeFrameworkSupport.DimensionStyles
    Dim objStyle As Object
    Dim strDimStyleName As String, strParentName As String
    ' Report errors
    Const PI = 3.14159265358979
    ' Create/get the application with specific settings
    On Error Resume Next
    Set objApp = GetObject(, "SolidEdge.Application")
    If Err Then
        Err.Clear
        Set objApp = CreateObject("SolidEdge.Application")
        Set objDoc = objApp.Documents.Add("SolidEdge.DraftDocument")
        objApp.Visible = True
    Else
        Set objDoc = objApp.ActiveDocument
    End If
    'Get the Active Sheet object
    Set objSheet = objDoc.ActiveSheet
    ' Create a DatumFrames collection object
    Set objDatums = objSheet.DatumFrames
    'Get the DimensionsStyles collection object
    Set objDimStyles = objDoc.DimensionStyles
    strDimStyleName = "ANSIDimStyle"
    strParentName = "ANSI"
    'Create a DimStyle with ANSI as parent style
    Set objANSIDimStyle = objDimStyles.Add(Name:=strDimStyleName, Parent:=strParentName)
    ' Assign a Style property to the DatumFrames
    objDatums.Style = objANSIDimStyle
    'get the Style associated with the DatumFrames
    Set objStyle = objDatums.Style
    ' USER DISPLAY
    ' Release objects
    Set objApp = Nothing
    Set objDoc = Nothing
    Set objSheet = Nothing
    Set objDatums = Nothing
    Set objANSIDimStyle = Nothing
    Set objDimStyles = Nothing
    Set objStyle = Nothing
End Sub