请大家看看我的一段实时曲线的代码出了什么问题？

Question

w=picture1.scalewidth
h=picture1.scaleheight已经改过来了。

Answer 1

Dim s As Integer
Dim w As Long, h As Long, y1 As Long, Data As Long
Dim ShowMode As Long, ii As Long, t1 As IntegerPrivate Sub Form_Load()
s = 400
Picture1.DrawWidth = 3
w = Picture1.Width 'Picturebox的宽度和高度
h = Picture1.Height
ShowMode = &HCC0020 'ROP模式（复制）
End SubPrivate Sub Timer1_Timer()       100
  Data = 100 * Rnd '产生随机数
  y1 = (s - Data) / s * h '根据量程转变成具体坐标,S为400
  Call BitBlt(Picture1.hDC, 0, 0, w - 10, h, Picture1.hDC, 10, 0, &HCC0020)  '整个曲线右移10个像素点
  Picture1.Line (w - 10, y1)-(w, y1), RGB(255, 0, 0)End Sub没有关系啊