请问此示波器如何才能像LabView那样缓慢不闪烁地运动？

Question

'请问此示波器如何才能像LabView那样缓慢不闪烁地运动？Private Sub Command1_Click()
Me.BackColor = 0
Const PI = 3.1415926
Dim i As Double
Scale (-2 * PI, 1.3)-(2 * PI, -1.3)
CurrentX = -2 * PI
CurrentY = 0
For d = 1 To 200
For i = -2 * PI To 2 * PI + 100 Step 0.01     '
Line -(i + e, Sin(4 * i) * Cos(0 * i)), 255, BF
Next
e = e - 0.5
Cls
Next d
End Sub

Answer 1

先在有autoredraw属性的picture中画出，然后再set me.picture = 某个picture.image。