主题：怎么利用MouseDown得到的x轴坐标得到对应k线图上的正序或逆序号

dim n
Sub technic_MouseDown(Button, Shift, x, y)
 dim Date
    dim Values
    Set Grid = technic.GetGridByName("main")
    call Grid.ValueByPoint(x, y, Date, Price,True)
    Application.MsgOut ": " & Date & "---" & Price
    application.MsgOut n
End Sub
sub Technic_KeyDown(KeyCode, Shift)
if KeyCode = 17 then
 n=1
 end if
end sub

sub Technic_KeyUp(KeyCode, Shift)
if KeyCode = 17 then
 n=0
 end if
end sub