Imports Infragistics.UltraChart.Shared.Events ... Private Sub UltraChart1_Scrolling(ByVal sender As System.Object, _ ByVal e As Infragistics.UltraChart.Shared.Events.ChartScrollScaleEventArgs) _ Handles UltraChart1.Scrolling ' "Y_Axis 表示軸範囲は 2.25 から 87.34 です" のように出力します。 Me.txtEvents.Text += e.AxisNumber.ToString() + " visible axis range is now: " + _ e.Axis.WindowMinimum.ToString() + " to " + e.Axis.WindowMaximum.ToString() + _ Environment.NewLine End Sub