Public Class Form1 Private _data As DataTable Public Sub New() ' この呼び出しはデザイナーで必要です。 InitializeComponent() ' InitializeComponent() 呼び出しの後で初期化を追加します。 CreateTable() End Sub Private Sub CreateTable() _data = New DataTable With _data.Columns .Add("Time", GetType(Date)) .Add("Value", GetType(Decimal)) End With Timer1.Start() DataGridView1.DataSource = _data End Sub Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Dim rnd As New Random() Dim value = rnd.Next(10000) _data.Rows.Add(Date.Now, value / 100D) Label1.Text = $"{value / 100D:00.00}" End Sub End Class