提示：Error : get_Item:参数不正确
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim Key,FctTrdCtrl,i
Dim X_Values,Y_Values
Set Key=ScreenItems("VBS_Key")
Key.operation=vbFalse
refresh
X_Values=Array(0,1,2,3,4,5,6,7,8,9,10)
Y_Values=Array(0,1,4,9,16,25,36,49,64,81,100)
Set FctTrdCtrl=ScreenItems("TrendYX1")
FctTrdCtrl.Index=0
FctTrdCtrl.DeleteData=vbTrue
FctTrdCtrl.AutorangeX=vbFalse
FctTrdCtrl.BeginX=0
FctTrdCtrl.EndX=10
FctTrdCtrl.AutorangeY=vbFalse
FctTrdCtrl.BeginY=0
FctTrdCtrl.EndY=100
For i=0 To 10
FctTrdCtrl.DataX=X_Values(i)
FctTrdCtrl.DataY=Y_Values(i)
FctTrdCtrl.InsertData=vbTrue
Next
Key.operation=vbTrue
End Sub