求助！VB编程picturebox中颜色问题！

求助各位高手，本人在picturebox中画了波形，想要当波形幅值>10的时候用黄色， <-10的时候用蓝色，在-10和10之间用红色。

---

画波形的时候就分次画,不是画好了着色.

---

pic.line （x1,y1）-(x2,y2),RGB(xx,xx,xx)

---

引用

pic.line （x1,y1）-(x2,y2),RGB(xx,xx,xx)

同意.

---

但是信号是随机的，我不知道他的振幅

---

把你画波形的代码贴上来看看

---

VB code:
Option Explicit
Dim x As Long
Dim y As Long
Private Sub Form_Load()
Picture1.AutoRedraw = True
Timer1.Interval = 100
Picture1.BackColor = vbBlack
Picture1.Scale (0, 50)-(1000, -50) ' 设定自定义座标系统。
Picture1.Line (0, 0)-(1000, 0), vbWhite
Picture1.DrawWidth = 2
End Sub

Private Sub Timer1_Timer()
x = x + 1
Randomize
y = Int((100 * Rnd) + 1) - 50
Text1 = y
If y > 10 Then
Picture1.PSet (x, y), vbYellow
ElseIf y >= -10 And y <= 10 Then
Picture1.PSet (x, y), vbRed
ElseIf y < -10 Then
Picture1.PSet (x, y), vbBlue
End If
End Sub

---

多谢各位，还像请教zdingyun，上面的代码只是划出了点，我需要的是波形，应该如何画呢？

---

看一下这个：
SkyDrive: 实时曲线

---

实时曲线打不开啊！能把代码贴一下吗？

---

晕，8F 的链接是网页链接，你别‘鼠标右键—→目标另存为……’啊。