Private Sub Graph_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)MyMax est une fonction qui me retourne le maximum entre les 2 valeurs.
Font = Legend.Font
Legend.Width = MyMax(TextWidth(Str$(X)), TextWidth(Str$(Y)))
Legend.Text = Str$(X) & vbCrLf & Str$(Y)
Legend.Top = Y
Legend.Left = X
End Sub