'一位数据的画线过程,长度为500像素 Private Sub drawpicture(picX As PictureBox, TimeCountX As Long, DataFromComX As Integer, DataFromComLastX As Integer) If TimeCountX - 1 > 0 Then picX.Width = picX.Width + 1000 picX.Line ((TimeCountX - 1) * 500, DataFromComLastX)-Step(500, 0), vbRed picX.Line -(TimeCountX * 500, DataFromComX), vbRed picX.Line -Step(500, 0), vbRed picX.Left = picX.Left + 1000 End If End Sub