Private Sub Command1_Click()
Dim p1(2) As Double, p2(2) As Double, p3(2) As Double
Dim acad As AcadApplication
Dim adoc As AcadDocument
Dim aline As acadline
Dim dima As AcadDimAligned
Set acad = CreateObject("autocad.application.16")
acad.Visible = True
Set adoc = acad.Documents.Add
p1(0) = 100: p1(1) = 100: p1(2) = 0
p2(0) = 1000: p2(1) = 1000: p2(2) = 0
p3(0) = 500: p3(1) = 520: p3(2) = 0
Set aline = adoc.ModelSpace.addline(p1, p2)
aline.Color = acblue
Set dima = adoc.ModelSpace.AddDimAligned(p1, p2, p3)
dima.TextHeight = 15
dima.TextColor = acGreen
dima.ArrowheadSize = 10
End Sub