请用vb.net做一个数值随时间变化的chart案例，即横坐标为时间，纵坐标为数值，一定要美观，请把代码写出来

以下是一个使用VB.NET制作实时时间变化的Chart示例：

首先，您需要添加一个Chart控件到您的Windows窗体中。然后，您可以使用以下代码设置Chart控件的属性和数据绑定：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' 设置 Chart 控件属性
    Chart1.Titles.Add("实时时间变化")
    Chart1.ChartAreas(0).AxisX.Title = "时间"
    Chart1.ChartAreas(0).AxisY.Title = "数值"
    Chart1.ChartAreas(0).AxisX.Minimum = 0
    Chart1.ChartAreas(0).AxisX.Maximum = 10
    Chart1.ChartAreas(0).AxisX.Interval = 1
    Chart1.ChartAreas(0).AxisY.Minimum = 0
    Chart1.ChartAreas(0).AxisY.Maximum = 100

    ' 添加数据绑定
    Dim series As New Series("数值")
    series.ChartType = SeriesChartType.Line
    series.XValueType = ChartValueType.Time
    Chart1.Series.Add(series)

    Timer1.Interval = 1000
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    ' 获取当前时间和随机数值
    Dim xValue As DateTime = DateTime.Now
    Dim yValue As Integer = CInt(Rnd() * 100)

    ' 添加数据点
    Chart1.Series("数值").Points.AddXY(xValue, yValue)

    ' 删除多余数据点
    If Chart1.Series("数值").Points.Count > 10 Then
        Chart1.Series("数值").Points.RemoveAt(0)
    End If

    ' 设置 X 轴范围
    Chart1.ChartAreas(0).AxisX.Minimum = xValue.AddSeconds(-10).ToOADate()
    Chart1.ChartAreas(0).AxisX.Maximum = xValue.ToOADate()

    ' 重新绘制图表
    Chart1.Invalidate()
End Sub

上述代码会在Chart控件中绘制一条随机数值随时间变化的折线图。Timer1控件的间隔设置为1000毫秒，因此每秒钟会向图表添加一个新的数据点。当数据点数量超过10个时，程序会删除最早的数据点，以保持Chart控件中只显示最近的10个数据点。同时，X轴范围也会随着时间的变化而动态调整。

请注意，本示例中的随机数值只是用来模拟实时数据，实际应用中您需要根据实际数据源进行相应的修改。