主题：请问：画线工具中的“直线”工具画出的直线，它的对象的属性和方法如何引用？

这是我弄几天的一些代码，目前只能做到画一根直线：

Dim cc1,cc2,price3
Set Grid = Technic.GetGridByName("Main")
Sub Technic_CursorMove(Grid, Index, x, y)
    cc1=x
    cc2=y
End Sub

Sub Technic_Click()
    dim Date
    dim Values
    call Grid.ValueByPoint(cc1,cc2,Date,Values,true)
    Grid.DrawLine 1, cc2, Grid.Width, cc2,&H00FFFF&, 1, 0
    price3=Values
End Sub

Sub Technic_Paint()
    Grid.DrawLine 1, Grid.PriceToPels(price3), Grid.Width, Grid.PriceToPels(price3),&H00FFFF&, 1, 0
End Sub

想用直线开发一些小应用，用Grid.drawline(...)太麻烦，请指点。

画线工具中的“直线”工具画出的直线，它的对象的属性和方法如何引用？