主题：mouse up

判断一下

Dim s As Integer = 0 '定义存储图系编号的变量
Dim p As Integer = 1 '定义存储数据点编号的变量
Dim Chart As WinForm.Chart = Forms("窗口1").Controls("Chart1") '获得Chart对象的引用

If Chart.SeriesList.Count > 0 Andalso Chart.CoordToDataIndex(e.x, e.y ,s ,p) Then '如果鼠标位置存在有效的图序和数据点

End If

 http://www.foxtable.com/help/topics/1013.htm