В VB6 получается, а в VB.NET - NET!

Public Function CreateLine() As ObjectId
            Dim startpt As New Point3d(4.0, 2.0, 0.0)
            Dim endpt As New Point3d(10.0, 7.0, 0.0)
            Dim pLine As New Line(startpt, endpt)
            Dim lineid As ObjectId  'publick Structure
            'получение доступа к базе данных чертежа(рисунка):
            Dim db As Database = Application.DocumentManager.MdiActiveDocument.Database
            'подготовка к транзакции:
            Dim tm As DBTransMan = db.TransactionManager
            Dim ta As Transaction = tm.StartTransaction()
            Try
                'получение доступа к таблице блоков
                Dim bt As BlockTable = tm.GetObject(db.BlockTableId, OpenMode.ForRead, False)
                 'открываем "строчку" таблицы - BlockTableRecord - для записи:
                Dim btr As BlockTableRecord = tm.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForWrite, False)
                 'записываем туда наш объект pLine:
                lineid = btr.AppendEntity(pLine)
                 'готовим транзакцию по созданию нового объекта:
                tm.AddNewlyCreatedDBObject(pLine, True)
                 'запускаем эту транзакцию на выполнение:
                ta.Commit()
            Finally
                ta.Dispose()
            End Try
            Return lineid
 End Function

Sub CreatingObjects()
        Dim AutoCAD As New AcadApplication
        Dim Document As AcadDocument
        Dim TextStyle As Interop.Common.AcadTextStyle
        Dim NewText As Interop.Common.AcadText
        Dim insertionPoint(2) As Single
        Dim height As Double
        Dim Text As String
        AutoCAD.Visible = True
        Document = AutoCAD.ActiveDocument
        TextStyle = Document.TextStyles.Add("Standard 5 mm")
        Document.ActiveTextStyle = TextStyle
        TextStyle.Height = 5.0
        TextStyle.SetFont("Times New Roman", False, False, 1, 0 Or 0 Or &H4)
        insertionPoint(0) = 0.0 : insertionPoint(1) = 0.0 : insertionPoint(2) = 0.0
        height = TextStyle.Height
        Text = "A"
        NewText = Document.ModelSpace.AddText(Text, insertionPoint(0), height)
    End Sub