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 objSheets As SolidEdgeDraft.Sheets
        Dim objSheet As SolidEdgeDraft.Sheet
        Dim objTextProfiles As SolidEdgeFrameworkSupport.TextProfiles
        Dim objTextProfile As SolidEdgeFrameworkSupport.TextProfile
        Dim objLineSpacing As Double
        Dim count As Long
        Dim dblMargin As Double
        Dim dblLetterSpacing As Double
        Dim smoothness As Long
        Dim textsize As Double
        Dim textprofile As String
        Dim xfrom, yfrom, xto, yto As Double
        Dim font As String
        Dim justifvalue As SolidEdgeFrameworkSupport.TextNumberJustificationConstants
        Dim anchorptloc As SolidEdgeFrameworkSupport.AnchorPointLocationConstants
        Dim x As Double
        Dim y As Double


        Try
            xfrom = 0.5
            yfrom = 0.5
            xto = 0.7
            yto = 0.7
            objApp = Marshal.GetActiveObject("SolidEdge.Application")
            objDoc = objApp.ActiveDocument
            objSheets = objDoc.Sheets
            objSheet = objDoc.ActiveSheet
            objTextProfiles = objSheet.TextProfiles
            objTextProfile = objTextProfiles.Item(1)
            textprofile = objTextProfile.Text
            anchorptloc = objTextProfile.AnchorPointLocation
            Call objTextProfile.GetAnchorPoint(x, y)
            Call objTextProfile.SetAnchorPoint(0.4, 0.4)

            objTextProfile.AnchorPointLocation = SolidEdgeFrameworkSupport.AnchorPointLocationConstants.igAnchorPointMiddleRight
            anchorptloc = objTextProfile.AnchorPointLocation

            Call objTextProfile.GetAlignment(0, justifvalue)
            font = objTextProfile.FontName
            count = objSheet.TextProfiles.Count
            objLineSpacing = objTextProfile.LineSpacing
            dblMargin = objTextProfile.Margin
            dblLetterSpacing = objTextProfile.LetterSpacing
            smoothness = objTextProfile.Smoothness
            textsize = objTextProfile.TextSize
            Call objTextProfile.Move(xfrom, yfrom, xto, yto)
            objTextProfile.Copy()
            objTextProfile.Delete()
            'objTextProfile.Cut()

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

    End Sub

End Class