急急急急急急急急急急，新手请教VB 6.0环境下line控件代码！！！

Question

如上图（我所要求添加的窗体及各种控件，但都没添加代码）。
要求：在随意输入A、B、C点直角坐标后，根据长宽条件可得出D坐标，单击开始轨迹演示按钮后，在窗体右半面Picture控件（未画出）里显示间距为1的栅形线条（即整个作业矩形区域共有20条空格）。Picture控件中演示效果如下图（箭头是我画的，便于理解，演示时不需要画出）

我的思路是均分长度1，得到长度坐标列阵，然后再把坐标连成直线。求高手帮我写出代码，我是新手中的菜鸟！谢谢！！！

Answer 1

不要用 Line 控件，用 Line 函数。
http://msdn.microsoft.com/zh-cn/library/aa230480%28v=vs.60%29.aspx

追问

您好，可以帮我给出代码么？我把所有分都给你，还有100多分

追答

在窗体上放一个 PictureBox 和 一个按钮，然后双击按钮键入下面代码：

Private Sub Command1_Click()
     
  Dim Ax As Single, Ay As Single
  Dim Dx As Single, Dy As Single
  Dim R As Single, I As Integer
     
  '初始化数据
  Picture1.ScaleMode = vbPixels '以像素为单位
  R = 15 '比例尺
  Ax = 30: Ay = 30 '起点坐标
  Dx = Ax + 20 * R
  Dy = Ay + 10 * R
     
  '绘制边框
  Picture1.Line (Ax, Ay)-(Dx, Ay) '上
  Picture1.Line (Ax, Dy)-(Dx, Dy) '下
  Picture1.Line (Ax, Ay)-(Ax, Dy) '左
  Picture1.Line (Dx, Ay)-(Dx, Dy) '右
     
  '绘制中间的栅格
  For I = 1 To 19
    Picture1.Line (Ax + I * R, Ay)-(Ax + I * R, Dy)
  Next
     
End Sub

很简单的代码，不要加分了。（我分数已经够高了，都不知道有什么用）

追问

恩 太感谢了 但第一张图的text 部分该怎么写代码啊？我刚开始学，还请帮帮忙！谢谢