在VB6（Visual Basic for Applications）中编写矩形编程，通常涉及使用AutoCAD的COM接口或者使用VBA（Visual Basic for Applications）来控制AutoCAD。以下是一个使用VBA在VB6中绘制矩形的示例代码：
```vb
Private Sub Command1_Click（）
Dim acadApp As Object
Dim acadDoc As Object
Dim acadLine As Object
Dim acadDimAligned As Object
Dim p1（2） As Double, p2（2） As Double, p3（2） As Double
' 创建AutoCAD应用程序对象
Set acadApp = CreateObject（"AutoCAD.Application.16"）
acadApp.Visible = True
' 添加一个新的文档
Set acadDoc = acadApp.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 acadLine = acadDoc.ModelSpace.AddLine（p1, p2）
acadLine.Color = acBlue
' 在模型空间中添加一个对齐标注作为矩形的另一条边
Set acadDimAligned = acadDoc.ModelSpace.AddDimAligned（p1, p2, p3）
acadDimAligned.TextHeight = 15
acadDimAligned.TextColor = acGreen
acadDimAligned.ArrowheadSize = 10
End Sub
```
在这段代码中，我们首先创建了一个AutoCAD应用程序对象，并使其可见。然后，我们添加了一个新的文档，并定义了矩形的三个顶点坐标。接着，我们在模型空间中添加了一条线段作为矩形的一条边，并设置其颜色为蓝色。最后，我们添加了一个对齐标注作为矩形的另一条边，并设置了标注的文本高度、颜色和箭头大小。
请注意，这段代码假设你已经安装了AutoCAD，并且你的VB6环境已经配置好了AutoCAD的COM接口。如果你没有安装AutoCAD或者没有配置好COM接口，这段代码将无法正常运行。
另外，如果你想要使用LISP来编写AutoCAD脚本，LISP是AutoCAD的脚本语言，它提供了更强大的脚本功能，但是学习曲线可能比较陡峭。如果你对LISP感兴趣，可以查阅AutoCAD的官方文档或者相关的教程来学习如何使用LISP进行编程。