bewegliche Linie

ich möchte zur besseren Orientierung in einem Diagramm eine Linie einfügen die sich immer auf der Mauszeiger-Position befindet. Das bewegen der Linie habe ich mit dem MouseMove-Ereigniss hinbekommen. Mein Problem ist, das der Y-Wert im Move-Ereigniss nicht mit ...Shapes("Linie").Top-Position übereinstimmt. Gibt es hierfür einen Umrechnugsfaktor und was passiert wenn das Fenster verkleinert (nicht maximiert) ist?

Danke im Voraus, Arno

Private Sub Chart_MouseMove(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
ActiveChart.Shapes("Linie").Top = y
End Sub