Public Class Form1
    Dim plist As New List(Of Int32)
    Dim rnd As New Random
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        PictureBox1.BackColor = Color.Black
        For i As Int32 = 0 To 199
            plist.Add(-1)
        Next
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        Dim wert As Int32 = rnd.Next(0, 101)
        TextBox1.Text = wert.ToString
        plist.Add(wert)
        plist.RemoveAt(0)
        PictureBox1.Refresh()
    End Sub
    Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        For i As Int32 = 0 To 199
            If plist(i) >= 0 Then
                e.Graphics.DrawLine(Pens.Yellow, i, plist(i), i + 1, plist(i))
            End If
        Next
    End Sub
End Class