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

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

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(...)太麻烦，请指点。

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

先自已一步一步来，插入类模块Cdrawline;

请问管理员：1.如何在Grid中用Drawline()画直线，并能用鼠标点选它并且拖动？请给个简单例子。

                 2.自建类模块功能能否使用？也请给个说明和例子。

                  谢谢！