MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)事件
if X > Chart.Left + Chart.Width Or X < Chart.Left Or Y > Chart.Top + Chart.Height Or Y < Chart.Top Then
label1.visible = false
Exit Sub
else
label1.move X,Y
label1.caption = "X:" & X & "Y:" & Y
label1.visible = true
end if