Отображение значения при наведении курсора мыши на маркер в Chart

Imports System.Windows.Forms.DataVisualization
 
Public Class Form2
    Dim yMax, yMin As Integer
    Dim sR1 As Charting.Series
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        yMax = 30 : yMin = -20
        Dim r As New Random()
        Dim R1 As Integer() = Enumerable.Range(0, 10).Select(Function(i) r.Next(yMin, yMax + 1)).ToArray()
        For i = 0 To R1.Length - 1
            DataGridView1.Rows.Add(DateTime.Now.AddMinutes(5 * i), R1(i))
        Next
        sR1 = New Charting.Series("LDR1")
        Chart1.Series.Clear()
        sR1.Points.Clear()
        DataGridView1.Update()
        Chart1.ChartAreas(0).AxisY.Maximum = yMax
        Chart1.ChartAreas(0).AxisY.Minimum = yMin
        Dim dt As DateTime
        For i = 0 To DataGridView1.Rows.Count - 1
            dt = DataGridView1.Rows(i).Cells(0).Value
            sR1.Points.AddXY(dt, DataGridView1.Rows(i).Cells(1).Value)
        Next
        With Chart1.ChartAreas(0).AxisX
            .Minimum = sR1.Points(0).XValue
            .IntervalType = Charting.DateTimeIntervalType.Minutes
            .Interval = 5
        End With
        SeriesSettings(sR1, 2, Color.Red, Charting.SeriesChartType.Line)
        Chart1.ChartAreas(0).AxisY.ToolTip = ""
        sR1.ToolTip = "Y=#VALY"
    End Sub
 
    Private Sub SeriesSettings(ByRef sr As Charting.Series, lWidth As Integer, lColor As Color, lType As Charting.SeriesChartType)
        sr.ChartType = lType
        sr.Color = lColor
        sr.BorderWidth = lWidth
        sr.XValueType = Charting.ChartValueType.Time
        sr.MarkerStyle = Charting.MarkerStyle.Circle
        sr.MarkerColor = Color.Green
        sr.MarkerSize = 10
        Chart1.Series.Add(sr)
    End Sub
End Class

Imports System.Windows.Forms.DataVisualization.Charting
Public Class Form3
    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        With Chart1.ChartAreas(0)
            .AxisX.Minimum = 0
            .AxisY.Maximum = 100
            .AxisY.Minimum = -100
            .CursorX.IsUserSelectionEnabled = True
            .AxisX.ScrollBar.IsPositionedInside = False
        End With
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Chart1.Series.Clear()
        Dim n As Integer = 201
        Dim sr1 As Series = Chart1.Series.Add("series1")
        Dim xx() As Integer = Enumerable.Range(0, n).ToArray
        Dim yy(n - 1) As Double
        Dim rnd As New Random
        For i = 0 To n - 1
            yy(i) = CDbl(rnd.Next(-1000, 1001)) / 10
        Next
        sr1.Points.DataBindXY(xx, yy)
        With sr1
            .Color = Color.Red
            .BorderWidth = 2
            .ChartType = SeriesChartType.Line
            .MarkerStyle = MarkerStyle.Circle
            .MarkerColor = Color.Green
            .MarkerSize = 4
            .ToolTip = "#VALY"
        End With
    End Sub
End Class