Programı Kapatmak

Dim dgn As New System.Diagnostics.PerformanceCounter("Processor", "% Processor Time", "_total")



Dim g As Graphics = PictureBox1.CreateGraphichs()

Dim p As New Pen(Brushes.Black)

Dim son As New Point(0, 140)

Dim zaman As Integer = 0



Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As Syste.EventArgs)

If zaman < 400 Then zaman +=1 Else zaman=0:g.Clear(Color.White):son.X=0:son.Y=140

Dim basla As New Point(son.X, son.Y)

son.X = zaman

son.Y = dgn.NextValue()

g.DrawLine(p, basla, son)

End Sub