Sub DrawLine()
    Dim Color As AcadAcCmColor
    Set Color = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16")
    
    Dim L As AcadLine
    Dim P1(2) As Double
    Dim P2(2) As Double
    P1(0) = 0: P1(1) = 0: P1(2) = 0
    P2(0) = 100: P2(1) = 100: P2(2) = 0
    Set L = ThisDrawing.ModelSpace.AddLine(P1, P2)
    Color.SetRGB 200, 100, 100
    L.TrueColor = Color
End Sub