请教VB怎样使曲线左移

请教怎样使曲线左移，最好能贴出代码，谢谢。
url=][/url]

---

bmp怎么上传？

---

我的图片在D:\sin.bmp

---

要先传到网络上，再贴相应的 URL 。

可以传到你的相册中。

---

你也可以参考这个贴子中 8F 的示例：
http://topic.csdn.net/u/20091105/11/5877aaf1-4850-4c0e-924d-ee3a03aa846f.html

---

http://www.m5home.com/blog/article.asp?id=282

要这个?

---

老马这个例子不错

移动曲线最佳选择是BitBlt函数，这个函数功能强大，鄙人没有完全掌握。

---

http://download.csdn.net/source/1371365

---

VB code:
Private Sub Form_Load()
Picture1.AutoRedraw = True
Picture1.DrawWidth = 4
Picture1.Scale (0, -1)-(20, 1)
Timer1.Interval = 20
End Sub

Private Sub Timer1_Timer()
Picture1.Cls
Static T As Double
For X = 0 To Picture1.ScaleWidth Step 0.01
Picture1.PSet (X, Sin(X + T)), vbRed
Next
T = T + 0.5
End Sub

---

---

不好意思，我刚回来 现在我把我的代码贴出，能不能请各位修改修改。
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Dim X1 As Integer
Dim Y1 As Integer
Dim X2 As Integer
Dim Y2 As Integer
Dim Jishi As Int