Как построить такой график....

[Yuri_S]

На форме надо нарисовать две оси и построить график y=sinX, причем с определенным интервалом(предположим 0.1с) он будет смещатся вправо на 10 пикселей или милиметров или все равно чего, тоесть на экране будет видны "бесконечные волны".....как такое устроить? Или как хотя-бы график построить?

[Лёха_Virus]

на вот: (p - это picturebox)

Dim lg, k, pg, speed

Private Sub Form_Load()
speed = 50 'скорость смецения
lg = 1 'левая граница графика
pg = 40 'правая граница графика
End Sub

Private Sub Timer1_Timer()
p.Cls
For i = lg - k / 100 To pg - k / 100 Step 0.1
p.PSet (i * 100 + k, 500 + Sin(i) * 100), RGB(0, 0, 0)
Next
k = k + speed
If k > 630 Then k = 0
End Sub

с очисткой правда косяк... ну сам разбирайся

[Yuri_S]

thanx