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 objDtmFrm As SolidEdgeFrameworkSupport.DatumFrame
    Dim objANSIDimStyle As SolidEdgeFrameworkSupport.DimensionStyle
    Dim objDimStyles As SolidEdgeFrameworkSupport.DimensionStyles
    Dim objDtmFrmStyle As SolidEdgeFrameworkSupport.DimStyle
    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
    ' Add a DatumFrame object
    Set objDtmFrm = objDatums.Add(x1:=0.1, y1:=0.1, z1:=0)
    ' Assign the Text to the DatumFrame
    objDtmFrm.Datum = "Test"
    ' Get the Style property of the DatumFrame object
    Set objDtmFrmStyle = objDtmFrm.Style
    ' USER DISPLAY
    ' Release objects
    Set objApp = Nothing
    Set objDoc = Nothing
    Set objSheet = Nothing
    Set objDatums = Nothing
    Set objDtmFrm = Nothing
    Set objANSIDimStyle = Nothing
    Set objDimStyles = Nothing
    Set objDtmFrmStyle = Nothing
End Sub