用窗体也可以的!我试了一下!可以画一个sin曲线Dim xt As Integer
Private Sub Form_Click()
For xt = 0 To 4500
Form1.PSet (xt, 650), vbRed
Form1.PSet (xt, 600 * Sin(0.2 * xt * 3.1415926 / 180) + 650), vbBlue
Next xt
End Sub