Imports System.Drawing
 
Public Class Form1
 
    Dim g As Graphics
    Dim x As Integer
    Dim y As Integer
    Dim y1 As Integer
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        g = Panel1.CreateGraphics()
 
        Timer1.Start()
 
    End Sub
 
    Private Sub DrawGraph()
 
        y = Panel1.Height - (PerformanceCounter1.NextValue * 5)
 
        g.DrawLine(Pens.Green, x, y, x, y1)
 
        x += 1
 
        y1 = y
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
 
        DrawGraph()
 
    End Sub
 
End Class