The "info" is displayed via the .Text property of the CalloutAnnotation object (in the example); add any extra info you want.
With ta
.AnchorDataPoint = Chart1.Series(0).Points(result.PointIndex)
.X = thisPt.X + 1
.Y = thisPt.Y + 1
.Text = thisPt.ToString
.CalloutStyle = CalloutStyle.SimpleLine
.ForeColor = Color.Red
.Font = New Font("Tahoma", 12, FontStyle.Bold)
End With