This is what I was after:
Imports System
Imports System.Type
Imports System.CLSCompliantAttribute
Imports System.Reflection
Imports System.Runtime.InteropServices
Imports Microsoft.VisualBasic
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.EditorInput'
Imports Autodesk.AutoCAD.Geometry
Public Class Class1
_
Public Sub Draw()
Dim coord1 As New Point3d(0,0,0)
Dim coord2 As New Point3d(0,10,0)
Dim acadLine As Line
Dim acadBT As BlockTable
Dim acadBTR As BlockTableRecord
Dim acadDB As Database = HostApplicationServices.WorkingDatabase
Dim acadTrans As Transaction
acadTrans = acadDB.TransactionManager.StartTransaction()
Try
acadBT = acadTrans.GetObject(acadDB.BlockTableId, Autodesk.AutoCAD.DatabaseServices.OpenMode.ForRead)
acadBTR = acadTrans.GetObject(acadBT(acadBTR.ModelSpace), Autodesk.AutoCAD.DatabaseServices.OpenMode.ForWrite)
acadLine = New Line(coord1, coord2)
acadBTR.AppendEntity(acadLine)
acadTrans.AddNewlyCreatedDBObject(acadLine, True)
acadTrans.Commit()
Catch
acadTrans.Abort()
Finally
If Not isnothing(acadTrans) Then acadTrans.Dispose()
If Not isnothing(acadLine) Then acadLine.dispose()
If Not isnothing(acadBT) Then acadBT.dispose()
If Not isnothing(acadDB) Then acadDB.dispose()
End Try
End Sub
End Class